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ABSTRACT 


The  Depot  Maintenance  Planning  and  Programing  System 
(DMPPS)  is  a large  computer  system  developed  over  a period 
of  twj  and  a half  years  by  the  David  W.  Taylor  Naval  Ship 
Research  and  Development  Center  ( DTNSRDC ) , Code  186  for 
the  Naval  Sea  Systems  Command  (NAVSEA) , Code  070T.  The 
System  was  developed  to  project  shipyard  resource  require- 
ments (i.e.,  labor  mandays  and  costs  as  well  as  material 
costs)  by  shipyard  production  shop  and  by  ship  work  break- 
down structure  (SWBS).  It  enables  management  to  assess 
the  impact  on  the  shipyards  and  ship  systems  of 

• Changes  in  depot-level  maintenance/alter- 
ations policy 

• Major  changes  in  force  levels  and/or  com- 
position 

• Budgetary  constraints 

DMPPS  consists  of  a network  of  interdependent  computer 
programs  written  in  FORTRAN  IV.  It  was  developed  at  DTNSRDC 
using  the  CDC  6000  series  computers  and  was  subsequently 
converted  for  the  IBM  360/370  series  computers.  It  is  now 
installed  and  operational  at  the  NAVSEA  070  computer  terminal 
(which  accesses  an  IBM  370/168  computer).  This  document 
presents  the  IBM  360/370  version  of  the  DMPPS  program  modules. 
The  modules  have  been  grouped  into  six  subsystems.  Each 
of  Volumes  2-7  of  this  document  describes,  in  detail,  one  of 
these  subsystems.  An  executive  summary  of  the  entire  DMPPS  is 
presented  in  Volume  1.  The  content  of  the  seven  volumes  is 
indicated  as  follows: 

Volume  1 - Executive  Sunmary 
Volume  2 - Preprocessor  Subsystem 
Volume  3 - Alterations  Subsystem 
Volume  4 - Repair  Subsystem 
Volume  5 - Synthesizer  Subsystem 
Volume  6 - Report  Generator  Subsystem 
Volume  7 - Feedback  Subsystem 


3.  ALTERATIONS  SUBSYSTEM 


The  alterations  subsystem  of  the  Depot  Maintenance  Planning  and 
Programming  System  (DMPPS)  consists  of  two  computer  programs,  MATCH 
and  ALTGEN,  which  process  data  from  the  Depot  Maintenance  Assignment  File 
(DMAF) , the  Ship  Alterations  Management  Information  System  (SAMIS),  and 
the  Major  Alterations  File  (MAF).  The  MAF  contains  estimates  on  particu- 
lar alterations  requiring  more  than  750  mandays.  These  estimates  are 
compiled  manually  from  shipyard  and  PERA  records. 

Two  other  programs  within  the  subsystem  are  used  to  update  the 
data  files.  Program  UPDEP  is  used  for  updating  DMAF  (see  Section  2.3), 
and  Program  FIXSAM  is  used  for  updating  the  SAMIS  file  (see  Section 
3.2). 

MATCH  compares  DMAF,  SAMIS,  and  the  MAF  and  identifies  discrepancies 
among  them.  The  program  also  lists  problem  areas  within  each  of  the 
files  and  tabulates  certain  statistics  useful  when  evaluating  and  updating 
the  data. 

Threshold  data  for  the  program  consist  of  the  750-manday  cut-off 
point  for  major  alterations,  and  the  25  percent  cut-off  for  zero-manday 
alterations  for  availabilities  containing  an  excess  of  unscoped  work. 
These  parameters  may  be  changed  as  a result  of  analyzing  their  effect  on 
previous  runs  of  the  program. 

The  reports  produced  by  MATCH  help  the  analyst  to  determine  addi- 
tions, deletions,  or  corrections  required  in  the  data  files.  The  update 
programs  are  then  run  for  DMAF  and  SAMIS.  Procedures  for  updating  the  MAF 
have  not  yet  been  fully  developed.  However,  data  on  new  alterations  may 
be  incorporated  by  the  use  of  standard  computer  procedures. 

The  revised  files  are  used  as  input  to  ALTGEN,  which  generates 
matrices  for  alterations  common  to  DMAF  and  SAMIS.  The  matrices  are 
for  one-digit  SWBS  by  shop  and  also  include  the  row  and  column  totals. 
These  matrices  are  written  to  a random  access  device  and  the  access  key 
number  is  added  to  the  corresponding  DMAF  record. 

Minor  alterations  and  alterations  not  yet  included  in  the  MAF  are 
characterized  by  the  use  of  repair  data. 
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Nuclear  and  ordinance  alterations  are  not  processed,  since  no  data 
have  been  compiled  for  nuclear  alterations,  and  ordinance  alterations 
have  no  mandays  associated  with  them  in  SAMIS. 

A diagram  of  the  Subsystem  is  shown  in  Figure  3.0-1. 
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Figure  3.0-1  - Block  Diagram  of  Alterations  Subsystem 
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3.1  PROGRAM  MATCH 


3.1.1  DESCRIPTION 


The  program  MATCH  compares  SAMIS,  DMAF,  and  MAF  and  compiles  data  on 
their  contents.  DMAF  availabilities  which  are  UNOS,  New  Construction, 
Fitting  Out,  Post  Shakedown,  and  Nuclear  Refueling  are  not  processed. 

If  a match  appears  in  DMAF  and  SAMIS,  zero  manday  alterations  and 
alterations  less  than  7 50  mandays  are  accumulated.  The  SWBS  nimber  is 
scanned  to  determine  whether  it  is  legal,  i.e.,  an  actual  SWBS  nimber,  and 
information  on  availabilities  having  no  sequence  number  is  tabulated.  The 
MAF  is  searched  for  a match  with  the  SAMIS  alteration  being  processed.  If 
a match  is  not  found,  either  the  record  represents  a new  alteration  or 
SAMIS  requires  correction. 

If  a SAMIS  and  DMAF  misnatch  is  found,  the  mismatch  is  specified  on 
the  appropriate  output  file  and  the  next  alteration  record  is  read  and 
processed. 

Hie  reports  are  written  after  each  availability  has  been  completed. 
Processing  is  then  begun  on  the  next  availability. 

A hierarchical  diagram  of  the  program  is  shown  in  Figure  3.1-1. 

Subroutine  MANDAY 

This  routine  selects  the  type  of  mandays  to  be  used  in  the  program. 
All  carrier  ship  types  use  Fleet  Modernization  Program  (FMP)  estimates; 
and  all  other  ships  use  FMP  estimates  for  the  execution  (current)  and 
budget  year.  All  other  cases  use  the  Amalgamated  Military/Technical 
Improvement  Plan  (AMT)  manday  values. 

If  the  FMP  estimate  is  zero  but  the  AMT  estimate  is  non-zero,  a 
counter,  "AMT",  is  incremented  to  record  the  nimber  of  times  AMT  values 
are  used  in  place  of  FMP  values. 
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Subroutine  MD0750 


This  routine  compiles  data  on  the  nimber  of  small  alterations  (re- 
quiring less  than  750  mandays),  large  alterations  (requiring  more  than  750 
mandays) , and  alterations  which  have  no  mandays  assigned  to  then  in  SAMIS. 
Separate  counters  are  maintained  for  each  of  these  three  cases. 

Subroutine  SWBS 

This  routine  checks  the  legality  of  the  SWBS  numbers  read  from 
the  SAMIS  file.  Any  nimber  not  having  three-digits  is  considered  illegal, 
and  generates  a message  in  the  output  file.  Optionally  a card  may  be 
punched  for  use  in  correcting  SAMIS. 

Subroutine  NEWALT 

This  routine  compares  SAMIS  and  the  MAF  to  determine  whether  availa- 
bilities have  been  scheduled  but  not  scoped.  Only  alterations  greater  than 
7 50  mandays  are  checked.  All  records  for  a given  ship  type  are  read 
together  while  searching  the  MAF,  which  may  contain  no  more  than  five 
hundred  records  for  each  ship  type.  If  more  records  exist,  an  "array 
overflow"  statement  is  written  on  the  output  file.  The  dimension  of  the 
variable  ALTS  must  be  changed  manually  to  accommodate  more  records.  The 
alteration  identification  nunber,  ALTS(3)  and  ALTS(4),  is  compared  to  the 
corresponding  parameter  in  SAMIS,  SAM(10)  and  SAM(ll). 

When  a new  alteration  occurs  in  SAMIS,  a message  is  printed  in  the 
"new  alt"  report  file  and  a card  may  be  punched  to  update  the  MAF. 

Subroutine  ZEB025 

This  routine  reports  on  availabilities  with  more  than  25  percent 
zero-manday  alterations.  If  the  ratio,  ZFAC,  of  zero-manday  alterations 
to  total  alterations  of  an  availability  is  greater  than  25  percent, 
a message  is  written  on  the  "zero-manday"  file.  The  ratio  is  recomputed 
using  the  adjustment  factor,  AMT,  accunulated  in  subroutine  MANDAY.  If 
the  ratio  has  decreased  to  less  than  25  percent,  a message  is  written  to 
that  effect.  A card  may  be  punched  to  replace  the  SAMIS  FMP  with  AMT 
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values.  After  the  above  actions  have  been  performed,  or  if  ZFAC  was 
less  than  25  percent  originally,  the  SAMIS  mandays  are  compared  to  the 
DMAF  manday  totals.  If  the  SAMIS  totals  are  greater  than  135  percent  or 
less  than  90  percent  of  the  DMAF  totals,  a message  is  written  indicating 
that  the  estimates  are  not  in  close  agreement. 

DMAF  totals  are  computed  by  multiplying  Production  Shop  Productive 
mandays,  DMAF(16) , by  the  percent  alterations,  DMAF(19). 

If  DMAF(19)  is  zero,  a message  is  written  to  that  effect,  and  the 
ratio  is  not  computed. 

Subroutine  PER750 

This  routine  reports  the  percentage,  by  SAMIS  class,  of  alterations 
less  than  750  mandays.  The  ratio  of  alterations  less  than  7 50  mandays 
to  total  alterations  within  a ship  type  is  computed  and  the  result  is 
written  on  a report  file. 

Subroutine  PHONY 

This  routine  compiles  data  on  unsequenced  SAMIS  alterations.  Each 
time  such  an  unsequenced  alteration  is  found,  the  fiscal  year,  FMP, 
and  AMT  estimates  are  stored,  and  a counter  is  incremented. 

If  the  FMP  estimate  is  large  (greater  than  the  input  threshold), 
the  fiscal  year,  FMP,  and  AMT  estimates  are  stored  in  another  array  and 
a second  counter  is  incremented. 

If  the  storage  arrays  are  about  to  exceed  their  maximun  capacity, 
a message  is  written  to  the  output  file.  The  dimensions  must  be  changed 
manually  to  accommodate  the  additional  data. 

Subroutine  FYPHON 

This  routine  reports  mandays  for  unsequenced  SAMIS  alterations  by 
fiscal  year,  and  notes  large  individual  unsequenced  alterations.  Both 
FMP  and  AMT  mandays  are  combined  by  fiscal  year  and  stored  as  one  value 


for  all  unsequenced  alterations.  In  addition,  large  unsequenced  altera- 
tions are  stored  individually  in  separate  arrays  by  fiscal  year.  These 
results  are  written  on  the  "unsequenced  SAMIS  alterations"  file. 

Subroutine  AVDIF 

This  routine  reports  differences  in  availabilities  between  the 
SAMIS  and  DMAF  files.  The  type,  hull,  and  sequence  nunber,  which  uniquely 
define  an  availability,  are  taken  from  SAMIS  and  DMAF  files  and  compared 
in  the  main  program.  AVDIF  is  entered  whenever  a match  cannot  be  made. 

If  AVDIF  determines  that  a match  does  exist,  an  error  message  is 
written  to  the  output  file.  The  message  indicates  whether  the  availability 
appears  only  in  DMAF  or  only  in  SAMIS.  Flags  denoting  the  condition  are 
set  for  use  in  other  modules  of  the  program.  Punched  cards  may  be  ob- 
tained to  update  either  file. 


3.1.2  FUN  SET-UP 

The  following  set-up  is  used  to  run  the  MATCH  program  on  the  IBM 
360/370  computer: 

//NVSMACH  JOB  (XXXXXXXXXX, XX XXX* .USER, Cl ASS*0, TIME « 1.40  It  MSCLEVELM 
//joeiin  oo  osnsnvsoi.oepot.lio»disp=shr 
//  EXEC  PGH«HACM 
//GO.FTOSFQQl  00  • 


MATCH  card  Inputs  (unit  5) 


DO  SYSOUT*A  (ERROR  MESSAGESI 

00  SYSOUTs*  (AVAILS.  ONLY  IN  OHAFI 

00  SYSOUT* A (ILLEGAL  SMBSI 

00  OSN«NVS01.  OMAFl.  HA  TA,OISP*SHR 

00  OSN*NVS01. SAMIS. DATA, 0ISP*SHR 

00  SYSOUTsA  (NEM  AlTSI 

00  SYSOUTs A (SAMIS/ONAF  RATIOI 

00  SYSOUT*A  (ALTS  < 750  MANOAVSI 

00  SVSOUTsA  (UNSEQUENCEO  AVAILS. I 

00  OSNsNVSOl.BIGALT  S.OATA,OISP*SHR 

00  SYSOUTsA  (AVAILS.  ONLY  IN  SANISI 

00  SVSOUT<A  I7EPO-MANOAY  ALTS  BY  CLASSI 

00  SYSOUT'A  (INOIVIOUAL  7ER0-MAN0AY  ALTSI 

on  S YSOUT* A (MANOAYS  FOR  AVAILS.  ONLY  IN  SANISI 


> FTObF  0 Oi 
.FT01F001 
» FT  0?FO  01 
.FTOJFOOl 
. FT04F001 

• FTOBF  001 

• FT09C  0 Cl 
.FT1CF0CI 
.FT11FJ01 

• FT 1?F  001 

• FT  1 JF  0 0 1 
■ FT 1AF  act 
.FT15F0C1 
» FT  IGF  0 01 


3.1.3  INPUT 


Card  inputs  are  made  using  unit  5.  The  format  for  these  cards 
is  given  in  Section  3. 1.3.1. 

Unit  5 - Card  inputs  which  (1)  identify  the  execution 
year,  (2)  set  the  lower  boundary  of  the  nunber 
of  mandays  considered  to  be  large  alterations, 

(3)  set  the  punch  option  flag,  and  (4)  set  the 
desired  intermediate  print  option  flags. 

The  following  additional  units  are  used  to  input  information  from 
disk  files: 

Unit  3 - Depot  Maintenance  Assignment  File,  Version 
1 ( DMAF-1 ) . 

Unit  4 - Ship  Alterations  Management  Information 
Systems  SAMIS  File  (SAMIS). 

Unit  12  - Major  Alterations  File  (MAF) . 

The  formats  for  these  files  are  given  in  Sections  3. 1.3. 2 through 
3. 1.3. 4. 
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3. 1.3.1  Unit  5 - Card  Input 

Only  one  card  is  input  to  MATCH.  Its  format  is: 


Variable 

Name  Descr ipt ion 

Field 

Format 

IEXYR 

Execution  year 

1-2 

12 

LARGE 

Lower  boundary  for  large 
alterations 

3-9 

17 

IPUN 

Punch  option  flag 

10-11 

12 

ITRACE 

Print  option  flag 

12-13 

12 

3. 1.3. 2 Unit  3 - Depot  Maintenance  Assignment  File,  Version  1 (DMAP-1) 

DMAF-1  contains  information  describing  all  depot  maintenance  ship- 
availabilities  scheduled  for  yard-work  at  both  Navy  and  privately  owned 
shipyards  during  the  selected  five- fiscal-year  period.  Depot  maintenance 
availabilities  are  those  availabilities  with  a type  of  work  other  than 
Fitting  Out  (PO),  Post  Shakedown  (PS),  or  New  Construction  (NC). 

Each  semi-annual  period  of  a fiscal  year  within  which  an  availability 
falls  corresponds  to  a record  of  DMAF-1.  Note  that  there  may  be  more 
than  one  DMAF  record  for  any  particular  availability. 

The  DMAF-1  file  is  sorted  in  ascending  order  by  the  following  para- 
meters: 

Ship  type 
Hull  nunber 

Availability  start  date  (year,  month,  day) 

Fiscal  year  (this  record) 

Period  (this  record) 


I 
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The  format  of  each  record  in  the  DMAF-1  file  is  as  follows 


Variable  Name 

Description 

Field 

Format 

DMAF(l-2) 

Yard 

1-5 

A4  ,Al 

DMAF(3) 

Ship  type 

6-9 

A4 

DMAF(4) 

Hull  nunber 

10-13 

14 

DMAF( 5) 

Sequence  nunber 

14-17 

14 

DMAF(6) 

Continuation  indicator 

18 

A1 

DMAF(7) 

Type  work 

19-21 

A3 

DMAF(8) 

Availability  start  date 
(mo/da/yr) 

22-27 

16 

DMAF(9) 

Availability  end  date 
(mo/da/yr) 

28-33 

16 

DMAF(IO) 

Specialization  category 

34-36 

A3 

DHAF(ll) 

Yard  ownership  indicator 

37 

Al 

DMAF(12) 

Coast 

38 

A1 

EMAF(13) 

Fiscal  year  (this  record) 

39-40 

12 

DMAF(14) 

Period  (this  record) 

41 

11 

DMAF(15) 

Production  shop  productive 
(PSP)  mandays  this  period 

42-48 

17 

DMAF(16) 

Total  production  shop 
productive  (PSP)  mandays 

49-55 

17 

DMAF(17) 

Repair  matrix  nunber 

56-59 

14 

DMAF(18) 

Alterations  matrix  nunber 

60-63 

14 

DMAF(19) 

Percent  of  PSP  mandays  for 
alterations 

64-66 

13 

DMAF(20) 

Labor  distribution  histogram 
nunber 

67-68 

12 

DMAF(21) 

Sort  key 

74-76 

13 

DMAF(22) 

Record  nunber 

85-90 

16 

3. 1.3. 3 Unit  4 - Ship  Alterations  Management  Information  System  File 
(SAMIS) 

SAMIS  contains  information  describing  the  alterations  scheduled  for 
yard-work  at  both  Navy  and  privately  owned  shipyards  for  a seven-fiscal- 
year  period. 

Each  record  corresponds  to  a single  alteration,  and  contains  a brief 
description  of  the  alteration,  a unique  alteration  nunber , and  the  ship 
class  to  which  the  alteration  nunber  applies.  If  a particular  alteration 
is  scheduled  for  ships  not  belonging  to  the  same  class,  different  nunber s 
are  assigned  to  the  alteration  for  each  class. 

The  SAMIS  file  is  sorted  in  ascending  order  by  the  following  para- 
meters: 

Ship  type 
Hull  nunber 
Sequence  nunber 
Fiscal  year 

The  format  of  each  record  in  the  SAMIS  file  is  as  follows: 


Variable  Name 

Description 

Field 

Format 

SAM(l) 

Ship  type 

1-4 

A4 

SAM(2) 

Hull  nunber 

5-8 

14 

SAM(3) 

Sequence  nunber 

9-12 

14 

SAM(4) 

Fiscal  year 

13-15 

13 

SAM(  5) 

Type  work 

17-19 

A3 

SAM(6) 

SWBS  nunber 

20-22 

13 

SAM(7) 

AMT  mandays 

27-31 

15 

SAM(8) 

FMP  maindays 

33-37 

15 

SAM(9) 

SAMIS  type 

41-44 

A4 

SAM( 10-11) 

Alteration  identifica- 
tion nunber 

45-49 

A4,A1 

SAM( 12) 

SAMIS  class 

53-56 

A4 

SAM( 13-20) 

Alteration  brief 

58-87 

7A4,A2 

SAM( 21) 

AMT  fiscal  expenditures 

89-97 

19 

SAM(22) 

FMP  fiscal  expenditures 

99-105 

17 

I 
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3. 1.3. 4 Unit  12  - Major  Alterations  File  (MAF) 


The  Major  Alterations  File  (MAF)  contains  shop  vectors  for  all  SAMIS 
alterations  on  which  data  have  been  collected. 

This  program  reads  only  that  portion  of  the  data  which  identifies 
the  alterations  contained  in  the  file.  The  complete  file  is  given  in 
detail  in  Section  3.3.3. 5. 

The  MAF  is  sorted  in  ascending  order  by  the  following  parameters: 

Ship  type 
SAMIS  class 
Alteration  number 


Each  record  in  the  MAF  has  the  following  format: 


Variable  Name 

Description 

Field 

Format 

ALTS(1,I) 

Ship  type 

1-4 

A4 

ALTS(2,I) 

SAMIS  class 

5-8 

14 

ALTS (3-4, I) 

Alteration  identification 
number 

12-16 

A4,A1 

14 


3.1.4  OUTPUT 


3. 1.4.1  Hard-Copy  Output 

The  following  units  are  used  by  MATCH  for  generating  hard-copy 
output: 

Unit  1 - Availabilities  only  in  DMAF 
Unit  2 - illegal  SWBS 

Unit  6 - Error  messages  and  intermediate  output 

Unit  8 - New  alterations 

Unit  9 - SAMIS  DMAF  alteration  manday  ratio 

Unit  10  - Alterations  less  than  750  mandays 

Unit  11  - Unsequenced  alterations 

Unit  13  - Availabilities  only  in  SAMIS 

Unit  14  - Zero-manday  alterations 

Section  3.1.7  gives  samples  of  these  outputs. 

In  addition,  the  program  provides  card  output.  The  formats  of  these 
cards  are  described  in  Section  3. 1.4.1. 


3. 1.4. 2 Card  Output 


The  following  card  is  optional  and  may  be  punched  for  each  alteration 
record  when  FMP  zero  mandays  are  replaced  by  AMT  nonzero  mandays: 


Variable  Name 

Description 

Field 

Format 

SAM(l) 

Ship  type 

1-4 

A4 

SAM(2) 

Hull  number 

5-9 

15 

SAM(3) 

Sequence  number 

10-13 

14 

SAM(8) 

FMP  mandays 

14-18 

15 

SAM(7) 

AMT  mandays 

19-23 

15 

The  following  card  is  optional  and  may  be  punched  for  each 
ity  that  appears  in  the  DMAF  file,  but  not  in  the  SAMIS  file: 

availabil- 

Variable  Name 

Description 

Field 

Format 

DMAF(3) 

Ship  type 

1-4 

A4 

DMAF(4) 

Hull  number 

5-9 

15 

EMAF( 5) 

Sequence  number 

10-13 

14 

The  following  card  is  optional  and  may  be  punched  for  each  availabil- 
ity that  appears  in  the  SAMIS  file,  but  not  in  the  DMAF  file: 

Variable  Name 

Description 

Field 

Format 

SAM(l) 

Ship  type 

1-4 

A4 

SAM(2) 

Hull  nunber 

5-9 

15 

SAM(3) 

Sequence  number 

10-13 

14 

The  following  card  is  optional  and  may  be  punched  for  each  alteration 
record  having  an  illegal  SMBS  number: 

Variable  Name 

Description 

Field 

Format 

SAM(l) 

Ship  type 

1-4 

A4 

SAM(2) 

Hull  number 

5-8 

14 

SAM(3) 

Sequence  number 

9-12 

14 

SAM( 10-11) 

Alteration  identi- 
fication number 

14-18 

A4,A1 

SAM(6) 

SMBS  number 

19-26 

18 

16 


The  following  card  is  optional  and  may  be  punched  for  a SAMIS  altera- 
tion record  which  does  not  appear  in  the  MAF: 


Variable  Name 

Description 

Field 

Format 

SAM( 10-11) 

Alteration  identi- 
fication nimber 

9-13 

A4,A1 

SAM(l) 

Ship  type 

15-18 

A4 

SAM(2) 

Hull  nimber 

20-23 

14 

SAM(3) 

Sequence  nimber 

24-27 

14 

SAM( 13-20) 

Alteration  brief 

29-58 

7A4,A2 
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3.1.5  PROGRAM  LISTING 


NIKE  LAHATRICE  10  6 3 AUG.  1975 

PROGRAN  HATCH! INPUT, OUTPUT, TAPE5«INPUT,TAPE6«0UTPUT,TAPE4 


HTCH 

NTCH 


1 .TAPES  » TAPE?  "HO  »T  APE 1» 128, T APE1 2 ,TAPE0»t28,TAPE9«12O,HTCH 
? TAPE10«1?8,TAPE11>120)  HTCH 
3 TAPE16-120, PUNCH)  NTCH 
- - THIS  PROGRAN  COHPARES  SAHIS  WITH  ONAF  ANO  THE  ALTS  SCOPE  LIST. HTCH 


1« 

?0 

30 

«,0 

45 

50 


TARLES  OF  AVAILABILITIES  ONLV  IN  ONAF  ANO  ONLY  IN  SAHIS  ARE  HTCH  60 
GEHERATEO.  HEN  ALTS  ARE  ALSO  TABULATEO.  UNSEOUENCEO  SAHIS  HTCH  70 
ALTS  ANO  ILLEGAL  SHBS  ARE  NOT  INCLUDED  IN  THE  COHPARISONS.  HTCH  00 
UNSEOUENCEO  AVAILABILITIES  ARE  GROUPEO  AND  LISTED  BT  FISCAL  HTCH  90 
TEAR  . LARGE  ALTS  ARE  ALSO  LISTED  INDIVIDUALLY.  CERTAIN  OHAFNTCH  100 
AVAILABILITIES  ARE  NOT  PROCESSED,  E.G.  NC.  TABLES  ARE  NTCH  110 
PROOUCEO  OF  AVAILABILITIES  WITH  MORE  THAN  ?5  070  ZERO-HANOAYS  HTCH  120 
ALTS.  FOR  EACH  SHIP  TYPE,  THE  PROPORTION  OF  ALTS  « 750  HTCH  ISO 
NANOAYS  ARE  LISTED.  FOR  AVAILABILITIES  IN  BOTH  OHAF  ANO  SANISHTCH  160 


NHERE  THE  RATIO  OF  THE  THE  RESPECTIVE  HANOAVS  IS  < 
> 1.3,  A TABLE  IS  PRIHTEO. 


0.9  OR 


INPUT 

TAPES 

TAPF4 

TAPF5 


FILES 

ONAF 

SAHIS 

CARO  INPUT 


T A PEI 2 ALTS 

• CARO  INPUT 
CARO  VARIABLE 
1 IEVYR 
LARGE 
I PUN 
ITRACE 


DEFINITION 

EXECUTION  YEAR 

LONER  BOUNO  FOR  LARGE  ALTS 

PUNCH  FLAG 

PRINT  OPTION 


FORHAT 

12 

17 

12 

12 


OUTPUT  FILES 

TAPE1  AVAILABILITIES  ONLY  IN  ONAF 
TAPE?  ILLEGAL  SN8S 

- TAPES  ERROR  HESSAGFS  ANO  PROGRAN  FLOP 

- TAPEO  NEN  ALTS 

- TAPFB  SANIS/OHAF  HOBDAY  RATIO 

- TAPE10  ALTS  < 750  NANOAYS 

TAPE11  UNSEOUENCEO  AVAILABILITIES 

TAPF13  AVAILABILITIES  ONLY  IN  SAHIS 

- TAPE14  7ERO-HANOAY  ALTS  BY  CLASS 

TAPE15  INDIVIDUAL  SEQUENCED  ZERO-HA NOAY  ALTS 

- TAPE16  HANfAYS  FOR  AVAILABILITIES  ONLY  IN  SAHIS 
OIHENST ON  TSXIPtO) 

CCNHON  /ONE/SAHJ22) ,I$AH<4) , IPUN, ITRACE, I AENO 
COHMON  /TNO/PMOSAN C 5, 2) , BIGS ANI500 ,5) , KPHO, LPHO, LARGE 

CON HON  /THREE/ONAF < 22) ,IENOSH,IENOHF, IOONLY , ISONL Y 
CON HON  /four/it 750 , IGT750,NONZHO,TZNO,NAl T 
rONPON  /FIVE/  KS,1NT,IEXYR,HO,NEN,SANO,HFLAG,KIN,KOUT,KOG 
INTEGER  ONAF, SAN, ANT 
INTEGER  TAF.UNOS 


HTCH  150 
NTCH  160 
HTCH  170 
HTCH  100 
HTCH  190 
HTCH  200 
NTCH  210 
NTCH  220 
HTCH  230 
HTCH  240 
HTCH  250 
HTCH  260 
HTCH  270 
HTCH  200 
HTCH  290 
NTCH  300 
HTCH  310 
HTCH  320 
NTCH  330 
HTCH  340 
HTCH  350 
HTCH  360 
HTCH  370 
HTCH  300 
HTCH  390 
HTCH  400 
HTCH  405 
HTCH  410 
HTCH  420 
HTCH  430 
HTCH  440 
HTCH  450 
HTCH  460 
HTCH  470 
HTCH  400 


OAT  A TBLANX/1H  S.ISKI P/2HON ,2HNC,?HEO  *2HPS»  3HRAN, 3HHAP, 2HSH , 2HOS/  HTCH  490 


OATi  TAF73HTAF/ 
DATA  UN0S/4HUN0S/ 
PO  01?  IP*1,5 
00  B1 7 10*1,2 


HTCH  500 
HTCH  510 
HTCH  520 
HTCH  530 
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sir  *M*mHCTP,io»«a 

TENPS*»»0 
irwsr«  0 
loop*  8 
xpwn»o 
I PMO*C 
IOOnly«o 
ISONLY*0 
T7**n«« 

NCN7MO*0 

LT760*0 

IGTTS0*0 

MEIAG«0 

*EW»8 

TAENO*0 

FTN*0 

rOOT*8 

tfOG*B 


ITCH  540 
HTCH  550 
HTCM  560 
HTCH  570 
HTCH  5SS 
HTCM  550 
HTCH  600 
HTCH  610 
HTCM  670 
HTCH  650 
HTCH  640 
HTCH  650 
HTCH  660 
HTCH  670 
HTCH  600 
HTCH  690 
HTCM  700 
HTCH  710 
HTCH  770 
HTCH  750 
HTCH  740 
HTCH  750 
HTCH  760 
HTCH  770 
HTCH  780 
HTCH  790 
HTCH  800 
HTCH  810 
HTCH  670 
HTCH  850 
HTCH  840 
HTCH  850 
HTCH  860 
HTCM  870 
HTCH  880 
HTCH  890 
HTCM  900 
HTCH  910 
HTCH  970 
HTCH  9J0 
HTCH  940 
HTCH  950 
HTCH  960 
HTCH  970 
• • Z5X ,341lH-1*/t  HTCH  980 
HTCH  990 
HTCH1000 
HTCH1010 
HTCH1070 
HTCH 10 50 
HTCH1040 
HTCH1050 
HTCH1060 
HTCH1070 
HTCH1 0 SO 
HTCM1090 
HTCM1100 
HTCH1110 
HTCH1170 
HTCH1130 


WRITEl  1,6611 
WHITE!  7, 6071 
WHITE!  8,6061 
WRITFI  9,6691 
WHITF110,610» 

NRITF ! 1 1, 6111 
WHITE  115,613) 

WHITE  114,614) 

WHITE  1 1 5, 6151 
WHITF 116,616) 

601  FORMAT!*  AVAILABILITI ES  ONLY  IH  OHAF*,// 

It  4»,  «TYPP  MUll  SfiO.NO.  EY*  /4X,  1 */l 

60?  FORMAT! • ILLEGAL  SWRS *, // 

« 10X,*SWBS  TYPE  Him  SEO.NO.  ALT. NO.  EY*/ 

* 10*,* — * / 1 

668  FORMAT!*  NEW  »LTS*,//, 

t 4V,*tlT.N0.  TYPF  MOLL  SEO.NO.  EY* ,15* , • ALT.  BRIEF*/ 

I 4Y,  • • , 15X  * * •/> 

609  FORMAT  1 * SAMIS/DNAF  RATIO*,// 

t 4Y,*TYPE  HULt  SEO.NO.  EY  RATIO  SAMTS  MANOAYS  OHAE  HANOAYS*,/ 

I 4Y , * */l 

616  EOHHAT1*  PROPORTION  OF  ALTS  WITH  HAN  OATS  < 750**// 

t 4 X , 'TYPE  PP0P0RTI0N*/4X»  * — — — •/» 

611  FORMAT  1 * UNSEOUENCEO  AITS  •//  7X,  «T0T.  HAN  OAYS*,  / , 

t 7X,  * *,/,  • EY  EHP  AHT  • ,?5X , 

. 'LARGE  UNSEOUENCEO  AITS  *, 

. • 1FHP — ANTI • /, * — 

613  FORMAT  1 * AVAILABILITIES  ONLY  IN  SAMIS*,// 

F 4X,  'TYPE  HULL  SEO.NO.  EY*/4X,* •/» 

614  FORMAT | • AVAILABILITIES  WITH  MORE  THAN  75  0/0  ZERO-HANDAY  ALTS*/ 
t/,4X,*TYPE  HULL  SEO.NO.  EY*, 

t 16X, *PROPORTYON  OF  ZERO  HAN  OA Y ALTS*,/ 
t 4X,  * — *,16X,31!1H-1/1 

615  FORMAT  1*  TNOIVIOUAL  ZERO-HA NOAV  ALTS*,// 

t 4X,*ALT.NP.  TYPE  HULL  SEO.NO.  FY*,15X,*ALT.  BRIEF*/ 
t 4*,* — — * , 15X  , * •/> 

616  FORMAT! • HANOAYS  FOR  AVAILABILITIES  ONLY  IN  SAMIS*,/ 

. . ',/) 

READ  16, 5001 IEXYR, LARGE, IPUN.ITR ACE 
606  FORMAT  ( I?  ,17  , ?I  ?) 

? J*1 

AMT-0 
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S0NO«0. 

c 

C COOING  FOP  IBH  170 

l PFOOfl, Jfl8,FN«*7C0l  OMOF 

c 

300  FOPMOT f OP, 01, OP, 219, 01, 03, 216, 0 3, 201, 12, II, 217, 219, 13, 12, 9X, 1 3, 

1 8X, IF) 

TF<0N»F(3).FQ.UN0SI  GO  TO  700 
3 TFIITF0CF.NF.il  GO  TO  20 

N*ITM6,90)  OMOF<3»  .ONOFfPI  ,ONOF<SI 

90  FOPNOTf*  PF0PING  OMOF*, IX, 09,219) 

20  ISOMfll»SXHIl> 

IS0N<21«S0Nf2l 
IS»M31«SfH|JI 
IS0M<M<S0M<M 
IFfLOOP.FO.OI  GO  TO  S 

C 

r.  ftnst  copo  of  on  ovoilibilitt  o 
c 

TFIOH0r<6).NF.TBl0NK>  GO  TO  1 
C 

C SXIPPOBLF  OVOILOSILITT  0 

C 

5 DO  0 T»l*8 

IF<OMOF(7).fO.ISKIP(I))GO  TO  1 
O CONTINUE 

IFIITP0CE.NE.il  GO  TO  21 

MPITFfft.Ol) 

91  FOPMOT  < • GOOD  OMOF  »1 

21  IFfTENOSH.EO.il  GO  TO  010 

IFCIOONLT.FO.l. OP. ISONLT.FQ.il  GO  TO  10 
IFfNFLOG.FO.ll  GO  TO  10 

C 

C COOING  FOP  TON  370 

6  PFOD  ( 9, 9 0 0,FND*  60  Q)  SON 

C 

POO  FOPMOT  f 09, 21 9, 13, IX, 03, 13, 9X, 15, IX, IS, 3X, 09, 09, 01, 3X, 09, 

. IX, TOP, 02, 110,18) 

IFfSONf II .EO.TOFIGO  TO  000 
IFfTTPOCE.NE.il  GO  TO  27 
101  NPTTE  f 6 ,9  21  fSOHfIB)  , IB*  1,3) 

92  FOPNOTf*  PFOOING  S3NIS* , IX, OP, IP , 131 

2?  IF f LOOP .NE. 0)  GO  TO  7 

IS0Nfl»«S0Nfll 
ISOHf  21  xSONf  2) 

IS0H13I  sSOMOl 
TSOMfP) sSONfp) 

C 

C TEST  FOP  PMONT  SONIS 

C 

7 IFfSOHfll .NF.O)  GO  TO  8 
IFfITPOCE.NF.il  GO  TO  23 
NPITF  f 6 ,931 

93  FOPNOTf*  PMONT  SONIS*) 

23  COLL  PMONT 

GO  TO  6 
C 

C FIPST  LOOP  THROUGH  PPOGPON  I 

C 

8 IFILOOP.EO.8)  GO  TO  18 


NTCH11P0 

NTCH1190 

HTCH1168 

HTCH1178 

MTCH1180 

NTCH1190 

NTCH1200 

NTCH1210 

NTCH1220 

NTCH1230 

NTCM12P0 

NTCH1250 

HTCH1260 

NTCM1270 

NTCH1280 

NTCH1290 

NTCH1300 

NTCM1310 

NTCM1320 

NTCH1330 

NTCH13P0 

NTCH1350 

NTCH1360 

NTCH1370 

NTCM1380 

NTCH1390 

NTCH1P00 

NTCH1P10 

NTCH1P20 

NTCH1P30 

NTCH1PP0 

NTCH1950 

NTCM1P60 

NTCH1P70 

NTCH1P80 

NTCH1P90 

NTCH1500 

NTCH1510 

NTCM1520 

NTCH1538 

NTCH15P0 

NTCH1S50 

NTCM1560 

NTCM1570 

NTCH1S80 

NTCH1S90 

NTCM1600 

NTCH1610 

MTCH162G 

NTCH16J0 

NTCH16P0 

NTCH1650 

NTCH1660 

NTCM1670 

NTCH16S0 

NTCH1698 

NTCH1700 

NTCH1710 

NTCH1720 

HTCM1750 
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c 

c sbme  smi*  avaiLMiiiTY  as  previous  one  t 

o 

ifcsbmch .nf.isbmciii  go  to  ia 

ifcsbmczi .ne.tsbmczh  co  to  la  ■» 

tfcsbmcsi  .ME.isawcsn  co  to  la 

TFITSONLY.EO.il  GO  TO  11 

c 

c softs  apo  ONaF  avauaBiLiTY  NaTCM  i 

c 

10  TFCS0MC1  I.NE.OMBFC3II  GO  TO  12 
TFCS0MC2  1 .NE.ON1F (a > 1 co  TO  12 
TF(S1N(3  I.NE.ONIF f SI  ICO  TO  12 
IOONLVsg 

TSONL V*  0 

TFCTTPaCF.NE.il  GO  TO  11 
M*TTEC6,R51 

95  formbt c * sams  t onbf  notchm 

R 

R OFTEPNINE  TYPE  OF  non  oav  FIGURES  TO  BE  USEO 
C 

11  cill  pavnaY 
sbno*sbmotmo 

r. 

C UPOaTE  STaTS  FOR  ZERO  MBNOBYS  BND  BLTS  1 TSO  HON  OBYS 
C 

cam  pootso 

R 

R EPPOP  CHECK  SN8S  NUMBER 

C 

CatL  SNR* 

TFCTTPaCF.NE.il  GO  TO  2a 
NPTTE  C6»96l 

R6  FCPPBTC*  RaLLTNG  MB NO BY* MOO 750 1 SMBS 1 1 NENBLT  *1 
r 

R PEPOPT  ON  NEW  BLTS 

R 

?a  CBLL  NEMBLT 

J*J»1 
LOOP* I 

TSBMC11 *SBMC1I 
TSBMC21  =SBNC  2) 

Tsapf3i*saMcii 

TsaMcaixsaMcai 

GO  TO  5 
R 

R PFPOPT  ON  avaiLBBTLITY  MISMBTCHES 
R 

i?  can  bvotf 
MFLBGxO 

TFCTTPaCF.ME.il  GO  TO  25 
M*TTEC6,R71  TOONLY , TSONL Y 
RT  FRPPBT C • OMBF  1 SBMIS  MISMBTCM • , 213) 

25  TFCTOCNLY.FO.il  GO  TO  l 
IFCTSCNLY.EO.il  GO  TO  11 
la  MBLT.J-1 
J*1 

IFCISONLYTIOONLY.EO.01  NFLB6* 1 
TFCITPBCE.NF.il  GO  TO  26 
NPTTECG.Rai 


HTCHirao 
NTCM1T50 
HTCH1Z60 
NTCH1ZZ0 
NTCH1ZB0 
NTCM1790 
MTCH1S00 
NTCHIBia 
NTCH1S20 
MTCH1SJ0 
MTCHiaao 
NTCH1650 
MTCH1860 
NTCH16Z0 
NTCH10S0 
NTCH1890 
NTCH1R00 
NTCH1910 
HTCH1920 
NTCH1930 
NTCHlRaO 
NTCH1950 
MTCH1960 
NTCH19Z0 
NTCH1980 
MTCM1990 
NTCH  2 000 
NTCH2010 
NTCH2020 
NTCH2030 
MTCH20a0 
NTCH2050 
NTCH20S8 
NTCH2070 
NTCH2080 
NTCH2090 
NTCH2100 
NTCM2110 
NTCH2120 
NTCH2130 
NTCH2laO 
MTCH2150 
NTCH2160 
NTCH21 70 
NTCH2180 
MTCH2190 
NTCH2200 
NTCH2210 
NTCM2220 
NTCM2230 
NTCH22aO 
HTCH2250 
NTCH2260 
HTCM2270 
NTCH2280 
NTCM2290 
NTCH2300 
NTCM2S10 
NTCM2320 
MTCM2330 
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98 

FORNATf*  SAMIS  AVAIL.  COMM..  CALLING  ZER078  t PER780M  NTCH2340 

C 

NTCH7380 

6 

MS FORT  ON  7 FRO  MAN  DAYS 

NTCH236I 

C 

NTCH237I 

76 

CALL  7ER028 

MTCH2300 

IZNO»i 

NTCH2390 

N0N7N0-8 

MTCN2400 

AMT«0 

MTCH2410 

SANOM. 

MTCH2470 

C 

NTCM2430 

c 

REPORT  ON  ALTS  < 780  MAN  OATS 

MTCH266I 

c 

NTCH7480 

CALL  PER780 

NTCH2460 

TFfTENOSN.EO.il  GO  TO  1 

MTCN7470 

IFfISONLT.FO.il  GO  TO  10 

NTCH2480 

GO  TO  7 

MTCH2690 

c 

MTCH2800 

c 

ONAF  ANO  SANTS  COMPLETED  ? 

MTCM281I 

c 

NTCH282I 

T08 

IFf TENOSN.NE.e  1 GO  TO  16 

NTCH283A 

TEN0NF»1 

NTCM2840 

CALL  AWOIF 

MTCH2880 

GO  TO  11 

MTCN2860 

808 

TEMPS M»1 

NTCH2568 

IFflENOMP.NE.O  1 GO  TO  15 

MTCM2870 

IEN0SN*1 

NTCH2800 

GO  to  14 

NTCH2890 

910 

CALL  AVOTF 

NTCH2600 

GO  TO  1 

NTCH2610 

18 

IFf TSONLY.EO.l. OR. IOONLT.EQ.il  NFL A6*  0 

NTCH2612 

CALL  ZERO 78 

NTCH2616 

CALL  PFR790 

NTCM2616 

16 

CALL  FT PM ON 

NTCN2620 

POUT«FL  OA  T f KOUT 1 /FLOA  T f KIN*  KOUT 1 

HTCH2630 

AKOG«FLOATfKOGl  /FLOAT  (KOUTl 

MTCH2640 

MRITE  f 9 1 1 691  POUT.AKOG 

MTCM2650 

169 

FORMAT f // * PROPORTION  OF  AVAILA8ILITIES  OUTSIOE 

RANGE  0.9—1.38  ■•NTCH2660 

. .FT. 3,/,*  PROPORTION  OF  AVAILABILITIES  NKERE 

SAMIS  > ONAF*,  HTCH2670 

. • OUTSIOE  RANGE  0.9—1.38  ■•.F7.31 

MTCH26S0 

STOP 

MTCM2690 

FNO 

MTCH2700 

4 
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SUBROUTINE  AVDIF 
C 

C THIS  ROUTINE  REPORTS  AVAILABILITIES  NHXCN  ARE  UNIQUE  TO 

C SANIS  OR  ONAF 

C 

CONHON  /ONE/SAHI22I .ISANItt ,IPUN,ITRACE,IAENO 
CONNON  /THREE/ONAFI 221  * IENOSH,IENOHF,IOONLY ,ISONLV 
INTEGER  SAN.ONAF 
C 

C IF  EITHER  FILE  IS  CONPLETEOt  NO  TESTING  IS  NECESSART 

C 

IFdENOSN.EO.il  GO  TO  1* 

TFdENONF.EQ.il  GO  TO  I* 

C 

C OETERNINE  THE  FILE  NHICH  UNIQUELY  CONTAINS  THE  ALT 

C 

IF  IS  AN  C II  —ONAF  1 31 1 20,2(10 

2 IF! SAN I 21 -ONAF IH 1 20,3,10 

3 IF IS AN 1 31 -ONAF I Sll  20, *,10 

% UNITE  10,91 ISAHIIAI ,IA«1,3I , IOHAFIIAI , IA«2,tl 

* FOR NAT  I * IRRECONCILABLE  SEQUENCE  ERROR’/*  SANIS  *,At,2IS, 
1 • ONAF  *, At, 2151 

RETURN 
C 

C REPORT  ON  AVAILIBILITIES  ONLY  IN  ONAF 

C 

10  IFIlFUN.NE.il  GO  TO  It 

PUNCH  IS, ONAF I 31 *0NAF Itl ,0NAFI  SI 

15  FORMAT  I At, IS, Itl 

It  NR1TEI1,16I  ONAFIS1 .ONAFItl , ONAF I S1,0NAFI13I 

16  FORNAT I SY, At, It, IS, 16 I 
C 

C SET  FLAG  TO  SHOP  ONAF  ONLY 

C 

ISOHLY-0 
IOONLY* 1 
RFTURN 
C 

C REPORT  ON  AVAILIBILITIES  ONLY  IN  SANIS 

C 

20  IFIIPUN.NE.il  GO  TO  2t 

PUNCH  2S,  ISAHIIAI ,IA»1, 31 
2S  FORNAT I At, IS, Itl 

2t  HPITEI13, 161 ISAHIIAI, IA«l,tl 

C 

C SET  FLAG  TO  SHON  SANIS  ONLY 

C 

IOONLY- 0 
ISONLY-l 
RETURN 
END 


NTCH2710 

NTCH2720 

NTCH2230 

HTCH27tO 

NTCM27S0 

NTCH2760 

NTCH2770 

NTCH27S0 

HTCH2790 

NTCH2800 

NTCH2S10 

NTCN2020 

NTCH2B30 

NTCH20tO 

NTCH28S0 

HTCH2060 

HTCH2070 

NTCN2880 

NTCH2090 

HTCH2900 

NTCH2910 

NTCH2S20 

NTCH2930 

NTCH29tO 

NTCH29S0 

NTCH2960 

NTCH2970 

NTCH2900 

NTCH2990 

NTCH3000 

HTCH3010 

NTCH3020 

NTCH3030 

NTCHSOtO 

NTCH30SO 

NTCH3060 

NTCH3070 

NTCH3000 

NTCH3090 

NTCH3100 

NTCH3110 

NTCH3120 

NTCH3130 

NTCHSltO 

NTCH3150 

NTCH3160 

NTCH3170 

NTCH3100 

NTCH3190 

NTCH3200 

NTCH3210 
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c 

c 

c 

c 


c 

ft 

r 


to 

o 

r. 

r 


to 

c 


«tm»ouTTnr  fypmon 

THIS  NOUTINE  NFPOPTS  NAN  OATS  or  PHONY  A V*  ILA  Sit  IT  ICS  BY  FY  ANP 
NOTES  LAPGE  INPIVIDUAL  PHONY  AVAILABILITIES 

CON  NON  /TNO/PHOSAHI  S,  2»  , BICSAN  (S00  ,S»  « YPHO.LPHO.L  ANGE 

rrNMON  /FIVE/  YS*  ANT*  TFYVA«NOf NFNtSANO»NFLAGtKIN* KOUT(KOC 
INTEGE*  PHOSAN,BIGSAN,8SAH<*t300tAt 
OIHFNSION  YOUNT (St 

TNTTTALT7E  POUNTE»S  ANO  SUNNENS 

OC  10  J J*  1 * A 
OO  10  YY=l,T0O 

op  in  tt*i,s 

P?AN(II,YY,JJI»0 
YOUNT ITI»*0 

STONE  TNOTVIflUAL  LANGE  HAN  OAY  PIGUNES  BY  PY 

00  TO  JJ*1 *LPHO 
It*°TGSAN I JJ,SI -TrXYR*l 
YOUNT  (Til  «YOUNT (III  ♦! 

PSAN(TT,YPUNTCII»,1»*BIGSAH(JJ,11 
HSAH(II,younT(II> ,2>»BIGSAH(JJ,2> 
rSANdl f YOUNT  (III  » T t * PIGSAH ( JJ,  T» 

PSANCII , YOUNT (TI) , At « BIGS AH ( JJ, At 

•FPOPT  PHONY  AVAILABILITIES 

CP  AS  LL*1»S 

IYP*IFYYYALL-t 

TY«YOUNT(LU 


NTCHJZ20 
HTCH3Z30 
HTCH3ZA0 
HTCHJ250 
HTCHJ260 
HTCHJ2E0 
NTCHJ200 
HTCH3290 
HTCH3300 
HTCHSS10 
HTCH3320 
NTCH3330 
HTCHJJAO 
HTCH3390 
HTCHJJAO 
HTCHSjro 
HTCHJJAO 
HTCHJJAO 
HTCH3A00 
HTCHJA10 
HTCHJA20 
HTCH3A JO 
HTCHJAAO 
HTCHJASO 
NTCH3A60 
HTCM3A70 
HTCHJAAO 
HTCHJAAO 
HTCHJ500 
HTCHJS10 
NTCHJ520 
HTCH3SJ0 
HTCHJSAO 


WPTTEt.l.AOl TVR, (PHOSAH(lL  , YY) , YY* 1 , 2) , ( (BSAH(LL  tlL.YYl ,YY*1,A) .NTCHJ5S0 


* IL*1,TY> 

rrPNAT(/TT,2IA,AXtACAS,IA,IS,»~ *,15,3X1 
. /,90(P7»,  A (A  A,  1 4,  IF,  *,15,  JX»/)» 

PCNTTNUE 


HTCHJS60 

NTCH3570 

NTCHJ5S0 

HTCHJSAO 


PFTUPN 


HTCH3G00 


ENO 


HTCHJG10 


*5 

e 

c 


c 

c 

c 

c 

c 

c 


SUBROUTINE  NANO AT 

THIS  ROUTINE  SELECTS  THE  TYRE  OE  NAN  OATS  USED  BY  TMF  PROGRAM 

CCN-C  «E/SAN(Z?t  ,ISAM(M tIPUN,ITRACE»IAENO 

COMMON  IVE/  KSt^MTt IEXTR»NO»NEM»SANC»NFLAG»l(INt KOUT . KOG 

INTEGER  CV,SAN,AMT,CVN,CVT 

OAT  A CV/?MCV/,CVN/3HCVN/,CVT/3MCVT/ 

USE  FNE  EIGUEES  EOR  CV 

IEISAEtll .EO.CVI  GO  TO  2 
IE  ( SIM  I II  . EO.CVNI  GO  TO  2 
IFISANttl .FO.CVTIGO  TO  2 

USE  EME  FIGURES  FOR  EXECUTION  OR  BUOGET  TEAR 

TEISANUl  .EO.TEXTR.OR.SAN(M.EQ.IEXYR«1I  GO  TO  2 

USE  I NT  FIGURES  FOR  REMAINING  CASES 

Mr«s«MtT) 

RETURN 

NCxSANCBI 

IE(SAN( II. EO.CVI  RETURN 

IEISANI II .EO.CVN.OR.SAMIlI.EQ.CTTl  RETURN 

REEL  ACE  ENR  ZERO  NAN  OATS  WITH  ANT  NONZERO  NAN  OATS 

TEfSAMtSI .ME. 0. OR. SAN (71 . EQ.Ol  RETURN 

ANT*AMT*1 

RETURN 

ENO 


HTCH36Z0 

HTCH3630 

NTCH36N0 

NTCH3650 

NTCH3660 

NTCH3670 

NTCH3680 

NTCH3690 

NTCH3700 

NTCH3710 

NTCH372# 

NTCH3730 

MTCH37N0 

NTCH3758 

NTCH3760 

NTCH3770 

NTCH3780 

NTCH3790 

NTCH3800 

NTCH3610 

NTCH38Z8 

NTCH3BI0 

NTCH3SN0 

NTCM3850 

NTCH3860 

NTCM3870 

NTCH1880 

NTCH3890 

NTCH3900 

NTCH3910 

NTCH39Z0 

MTCH3930 

NTCH39N0 
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» inn  w n n o x n n n n n o n o.ioo 


SUNROUTINE  MOO7S0 

▼NTS  ROUTINE  COMPILES  OATA  ON  ALTS  < 79t  NAN  OATS  ANO  ON  ZERO 
NAN  OATS 

COMNON  /ONE/SAM f 22) » IS*H(  tl , IRUN , TTRACE ,1 AENO 

CCNNON  /FOUR /LT  7S  0 , TGT  7S0  ,NON2NO  , 1 2ND  ,NAl  T 

CCNNON  /FIVF/  KS,ANT,IEXVR,MO,NEN,SANOtNFLAC,KIN,KOUT,KOG 

INTEGER  SAN 

TF<MO.LE.79tl  GO  TO  2 

UROATE  COUNTER  FOR  ALTS  » 791  NAN  OATS 

TGT7S0*IGTT5B«l 
GO  TO  3 

UROATE  COUNTER  FOR  ALTS  « 790  NAN  OATS 

LT790«LT790»t 
TF (HO.NF.O)  GO  TO  A 

UROATE  COUNTER  FOR  IERO  NAN  OAT  ALTS 

l?NO«T2ND*l 

MRITE (1 Ny  t9> SANtlO)tSAN(ll)( (SAN (LI »L*l»tl» (SAH(L)  »L»13,20t 
FORMAT  C NX, A*, At, 3X, At , IX ,It , 2IF,  2X,7At,A2l 

RETURN 

tlROATF  COUNTER  FOR  NONZERO  NAN  OAT  ALTS 

N0N7NC»N0N7N0»t 

RETURN 

ENO 


NTCHJ990 
MTCH39&0 
NTCHS970 
NTCH39S0 
NTCH3990 
NTCMtOOO 
NTCHtOlS 
NTCNt02« 
NTCHtO  30 
NTCHtOtO 
NTCNtONO 
NTCHtOtO 
NTCH4070 
NTCHtOtO 
HTCHtt90 
NTCHtlOt 
NTCNttlO 
NTCHtl20 
NTCHttSO 
NTCHtltt 
NTCHttSO 
NTCMtttO 
NTCNtlTO 
NTCHttSO 
NTCMtl90 
NTCHtZOt 
NTCHtZtt 
NTCH4220 
NTCH4230 
NTCHtZtO 
NTCH4250 
NTCH4260 
NTCMt270 
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r - 
c - 


c - 

t9 


1 

mo 

n 

r - 

9 

6 

C - 


9 

10 

c - 

11 

19 

19 

91 
C - 
1? 
10 


90 

n - 

91 
99 


2 

90 


subroutine  nemalt 

- tuts  routtne  composes  samis  with  the  alts  scope  list  to 

- OFTFRMINF  if  a NFM  alt  mas  APPEAREO  IN  SAMIS. 

COMMON  /ONE/SAN122I ,ISAM<41 ,IPUN,ITRACE,IAENO 

COMMON  /FIVE/  KS,AMT,TEXYR,NO,NEM,SANC,NFLAG,KIN,KOUT, KOG 
INTEGER  ALTS  <9.90  01  , SAM 

tf<itbacf.ne.ii  r.o  to  19 

UNITE <9.601  <S»M<N» ,N*t,31 .MO.NEN 

FORMAT  < • in  ALTS*, 2X,A9, 19,14,*  NO**, 19,*  MEM**, 191 

- 00  MOT  C0NSI0FO  SMALL  ALTS. 

IFfMO.LF . 7901  RETURN 

IF<  TIENO.  FO.  11  GO  TO  90 

IF1NEM  .MF.01  GO  TO  19 

IFIITPACF.NF.il  GO  TO  13 

VPITF  <9 ,901  <ALTS<I, 11, 1*1*91 

FC*MAT<*  PEAOTMG  ALTS*, IX, A4, 19, IX, A4, AH 

NEW*1 

CO  10  J*1 ,900 

- *FAO  ALT  SCOPE  LIST. 

PFA0C1?,9,FN0*191  < ALTS  < I , Jl  , I*  1 • 41 

FOPMAT <A4,I4,3X,A4«A1//1 
TFlJ.FO.ll  GO  TO  9 

SAMF  9MIP  TYPE  AS  PREVIOUS  ONE  ? 
IF<ALTS<1,J1.FQ.ALTS<1,J-111  GO  to  9 
BACKSPACE  1? 

GO  TO  19 
JJ*J 

rONTTNUF 

- WFPOPT  ERROR  CONOITION. 

WPTTF 19,1 11  < ALTS <1,11,1*1, 91 

F OPMAT  < • alt  ARRAY  OV ERFLOM • , A9, 15 , IX , A9, A1 1 

GO  TO  90 

TAFNO*l 

IFlITPACE.NE.il  GO  TO  1? 

MPITE  <9 ,911  SAM <11 ,ALTS<1,11 
FORMAT!*  SAM*  *, A9 , * ALTS**,A91 
COMPARE  SANTS  AMO  ALTS. 

IF<SAM<i»-ALTS<1,111  91,30,1 
ro  90  x*i,jj 

TF<ALTS<9,K1.NE.SAM<1011  GO  TO  90 
IF<ALTS<4,KI.F1.SAH(11I1  go  TO  90 
CONTINUE 

- MPTTF  MESSAGE  FOP  mem  alt. 

NPITF <9,991  SAM <101 ,SAM<lll , <SA M < L 1 ,L*1 ,91 , <SAM <L I , L*1 3 ,201 
FORMAT!  9X,A9,A1,3X,A9,1X,I9,  219,  2X,TA4,A2I 

IF<IPUN.NE.ll  GO  TO  90 

PUNCH  2 ,9  AM1101  ,SAH<111  ,S  AM  <1 1 ,S  AM  <21  ,SAM  <31  , < SAM  <1 A1 , 1 A*  13 ,201 

FORMAT  < * ALT  10  • , 19, Al, IX, A9 , IX , 214, IX , 7 A9 , 121 

RETURN 

ENO 


MTCH9200 
MTCH9290 
MTCM9300 
MTCH9310 
MTCH9320 
MTCH9330 
MTCH4390 
MTCM9190 
MTCH9390 
MTCH4  3 TO 
MTCH93S0 
NTCM9I10 
MTCH9400 
MTCH9910 
MTCH9920 
MTCH9930 
MTCH9990 
MTCH9990 
MTCH9990 
MTCH99T0 
HTCH4490 
NTCH4990 
MTCM4500 
MTCM4510 
MTCH4920 
MTCH4530 
MTCH4940 
MTCM4990 
MTCM4960 
MTCH49  TO 
MTCH4590 
HTCH4990 
MTCM4900 
MTCH4910 
MTCH4920 
MTCH4630 
MTCH4940 
MTCH4990 
MTCH4660 
MTCH49T0 
MTCH46S0 
MTCH4990 
MTCH9T00 
MTCM4T10 
MTCH4T20 
MTCH4T30 
NTCH4T40 
MTCM4T90 
MTCM4T90 
MTCH4TT0 
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SUBROUTINE  PER790 

THIS  ROUTINE  REPORTS  THE  PERCENTAGE,  BY  CLASS,  OF  ACTS  « 790 
MAN  OATS 

COMMON  /0NF/SAM(2?>  ,ISAHU)  , IPUN, TTRACE ,t AENO 
COMMON  STHREE/OMAEL Z2» , IENOSN, IENOME, IDOMIY , ISONLT 
COMMON  /EOUR/LT798,IGT790,NONZHO,IZMQ,NALT 
THTEGE*  SAM 

TEIIENOSN.NE.OL  GO  TO  9 

SAME  SAMIS  CLASS  AS  PREVIOUS  RECORO  ? 

If($AN»t> .FO.ISAMCin  RETURN 
PER*ELOAT (LT79BI 7PL0AT(IGT79B«LT79«) 

TGT798«8 

LT790-0 

REPORT  PEP  CENT  MAN  OATS  « 798 

NPITE<10,?>TSANfi»,PEP 

EPPMiT<5X,A4,9*.E6.3t 

RETURN 

ENO 


subroutine  sums 

THIS  POUT THE  CHECKS  THF  LEGALITY  OE  THE  SMBS  NUMBER 

COMMON  /ONE/SAM(??) ,ISAH(4> , IPUN, ITPACE ,1 AENO 
INTEGER  SAM 

LEGAL  SMBS  NU**BEPT 

IE(KAH(M.GT.99>  RETURN 

REPORT  ILLEGAL  SH8S  NUMBER 

IE»IPVN.MF.1»  GO  TO  fc 

PUNCH  ?,SAM(tt  ,SAM<?»  ,SAM(3t  ,SA*(10I  ,SAM<llt  ,SAN<«) 

FORMAT < At, ?T4, IX, At, A 1,181 

NRITF (2,8)  SAN(M«<SAHUN)(IM«1, 3),SAH(  10 >, SAMC 111, SAM»4» 
. ,(«AM(IHt ,IH*13,20I 
A ECPMITI9K,T8,M*,AA,Ifc,8K,IA,9X,AAtAltIA,BK,7AA,A?» 

RETURN 

ENO 
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MTCH47S0 
MTCHA790 
HTCH4800 
MTCH4810 
NTCHM20 
NTCH48S0 
MTCH4640 
NTCH4S98 
NTCH4860 
NTCH4869 
MTCH4870 
MTCH48B  0 
NTCH4890 
NTCH4900 
MTCH4910 
NTCH4920 
MTCH4930 
NTCH4948 
MTCH4950 
MTCH4960 
NTCH4970 
HTCH4980 
NTCH4990 
NTCH9000 


MTCM5430 

MTCH944B 

MTCH9490 

NTCH5460 

NTCHS470 

NTCH5480 

NTCH9490 

NTCH5500 

HTCH5910 

NTCM5S20 

MTCH9530 

NTCH5540 

MTCH9590 

MTCH5S60 

MTCH59T0 

NTCHS980 

NTCN5990 

MTCH5600 

MTCHS610 

NTCH5620 

HTCH9630 


onnrj  .too  nnn  net  a a aa  a a a 


r 
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SUBROUTINE  PHONY 

THIS  ROUTING  COMPILES  OAT  A ON  SAMIS  PHONY  AVAILABILITIES 

COMMON  /ONE/SAN  1 22  1 , I SAN  ( 41  , I PUN  , ITRACE , I AE  NO 
COMMON  /TMO/PHOSAM<  5 , 21 * BIGS AMC500 ,5) » KPHOtLPHO,L AR6C 

COMMON  /FIVE/  KS»AHT,IEXVR»NO»NEN,SANO,HFLAG,RIN,KOUT,KOG 
INTEGER  PH0SAH«9IGSAN,SAH 

ONLY  STONE  DATA  FOR  THE  EXECUTION  YEAR  ANO  FOUR  SUCCEEDING  YEARS 

IFISAMt4t-IEXVR.GT.GI  RETURN 
IFtSAMIM .LT.IEXVR)  RETURN 

SUM  MAN  DAYS  BY  FY  FOR  PHOt»Y  AVAILABILITY 

KPHO*SAMt41-IEXYR»l 

PHOSAM  tKPMO* It  *PHOS AN (KPHO«ll+SAHt81 
PHOSAM ( KPHO»  2)  *PHOSAM  (XPHO*  21  »SAN  1 71 
IFtSAMtBt .LT. LARGE. ANO. SANf Ft .LT.LARGEt  GO  TO  20 

CKFCF  FOP  ARRAY  OVERFLOW 

IF ( LPMO.GT.5B0t  GO  TO  40 
LPHO*LPHO»l 

STORE  MAN  OATS  AMO  FY  FOR  LARGE  INDIVIDUAL  PHONY  AVAILABILtTV 

PIGSAM(LPHO,ll«SAMtlt 
BTGSAWf LPHO»  2t*SAM(2t 
BIGSAMtLPHO, Tt*SAMt»l 
PIGSAMtLPHOf  4t  *SAN( 21 
PIGSAMtLPHOf  51 *SAM( 4t 
PETUPN 

REPORT  ON  ERROR  CONOITION 

WRITE tG, 451  LPHO»  SAM ( It ,SAM{ 21 ,SAM< 31 

FORMAT! • BIGSAN  ARRAY  OVERFLOW* ,I4,A4  ,2141 

l PH 0*1 PH0*1 

RETURN 

FNO 


NTCH5010 

NTCH5020 

NTCH5030 

NTCM5040 

NTCH5050 

HTCH5060 

MTCM5070 

HTCH5080 

MTCM5090 

NTCH5100 

MTCH5110 

MTCH5120 

NTCH5130 

NTCH5140 

MTCH5150 

NTCH5160 

NTCH5170 

MTCH51S0 

HTCH5190 

MTCM5200 

MTCH5210 

MTCH5220 

NTCH5230 

MTCH5240 

NTCH5250 

NTCH5260 

MTCH5270 

MTCH5200 

MTCN5290 

NTCH5300 

MTCH5310 

MTCN5320 

MTCH5330 

MTCH5340 

NTCH5350 

NTCM5360 

NTCH5370 

MTCH5380 

NTCH5390 

NTCH5400 

MTCH5410 

NTCH5420 


I 

* 
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SUBROUTINE  7ER025 
ft 

C THIS  ° OUT  INF  REPORTS  OH  AVAILABILITIES  NITH  MORE  THAN  25  PER  CENT 

C N«n  PATS,  AND  PUNCHES  UPDATE  CAPOS  FOP  SUBSTITUTING  ANT  HAN 
ft  OATS  POP  FPP  7EP0  HAN  OATS 
C 

COMMON  /0NF/SAM(22) ,ISAM(9) ,IPUN, ITRACE,IAENO 

COMMON  /THREE /OMAF (22) ( IENOSM, IENONF, IDONLT , ISONL T 

CCHNON  /FOUB/IT7SO,IGT750,NON2NO,I2NO,NALT 

COMMON  /FIVE/  KS,AMT,IEXTR,MO,NEM,SANO,HFLAG,KIN,KOUT,KOG 

INTFGFR  SAN,0NAP,AMT 

7FAC-FLOAT(I7NOI/FLOAT(IZMOaNON2MO) 

C 

ft  TEPO  NAN  OATS  < 25  PEP  CENT  OP  TOTAL  T 

C 

IF(7FAC.LE.8.25)  GO  TO  9 
NR1TE(19,2)  (TSAM(I)  ,1-1,9)  ,ZFAC 
2 FCRMAT(9X, 19,15,16  , IS, 21X.F6. 5) 

C 

C PFPLACF  FMP  2EPO  NAN  OATS  BT  AMT  HAN  OATS 

C 

5 T*(AMT.FO.O>  CO  TO  9 

TF(TTPACF.EO.t)  MRtTE(6,20)  I2NO,NONZNO, AMT 
20  FORMAT  (3120) 

ATNO«I?NO-AMT 

ANON2»NON7MO*AHT 

7FAC*A7HP/(AZMOaANONZ) 

ft 

C PPTTSFP  ?FPP  HAN  oats  « 25  PEP  CENT  T 
C 

TF(7EAC.C»T. 0.251  GO  TO  9 
NPITEMA.M  7FAC 

6 F0RNAT(95X,F6.3*5X,*FHP  REPLACEO  9T  AMT*) 

IF( IPUN.NE.il  GO  TO  9 

PUNCH  A,  (SAM(K),K-1,3),SAM(8),SAM(7> 

9 FORMAT  (Alt, IS, 19,715) 

9 NCN7HP-  0 
I7HO-0 

IF(NFLAft.FO.l)  GO  TO  15 
NPITE (16, 25)  (ISAM(I) ,1*1,9) ,SANO 
25  FORMAT (5X,19,2I5,I6,F11.0) 

RETURN 

C 

C COMPAPF  SAMIS  MITH  OMAF  MAN  OAT  TOTALS 
C 

15  IF(TTRACF.NE.l)  GO  TO  11 

NPTTF(6,10)  SOHO, OMAF (16) ,0MAF(19) 

10  FPRMAT(F10.2,I10,I10» 

11  TF(l>HAF(19».EO.0»  GO  TO  12 
0HAFP*OMAF(16l *OHAF»19) /100. 

PROP*  S AMO /OMAFO 

TP(PROP.GT.l. 35.0R.PR0P.LT. 0.91  60  TO  7 
NPITE (9, 8 ) (ISAM(I), 1-1,91,  PROP ,S AMO ,0HA FO 
VIN-XTNAl 

c 

C rnPPUTF  PROPORTION  NITHIH  ACCEPTABLE  RANGE 
RETURN 

12  NRTTE(9,13)  (tSAM(I) ,1-1,9) ,SAHO 

13  FORMAT (5X ,A9, 215,16,*  *•••*, FI  I. 0,5X , *OMAF  0/8  ALT  •*) 

RETURN 

7 HRTTE<9,8)  < ISAH(I) ,1-1 ,9) , PROP, SAMO, OMAFO 

A FORMAT (5X,A9,15,19,16,F6.2,F11.0,F19. 01 

IF(PPOP.6T.1.0»  XOG-KOGaI 

rouT-xnuTAi 

RETURN 

ENO 


HTCH5690 
NTCH5650 
ZEHTCH5660 
HTCH5670 
NTCH5680 
HTCH5690 
NTCH5700 
HTCM5710 
NTCH5720 
NTCH5730 
NTCH5790 
MTCM5750 
HTCH5760 
MTCH5770 
MTCH5760 
NTCH5790 
MTCM5800 
MTCH5810 
HTCH5020 
MTCH5830 
MTCH5S90 
MTCH5850 
HTCH5860 
HTCH5870 
MTCH5660 
MTCH5890 
MTCH5900 
HTCH5910 
MTCH5920 
MTCM5930 
MTCH5990 
MTCH5950 
HTCH5960 
HTCM5970 
MTCM5900 
MTCH5990 
MTCH6000 
MTCH6010 
MTCH6020 
HTCH6030 
NTCH6090 
MTCH6050 
NTCH6060 
MTCH6070 
HTCM6080 
MTCH6090 
MTCH6100 
NTCH6110 
MTCH61 20 
MTCH61 30 
NTCH6190 
MTCH6150 
MTCH6160 
MTCH6170 
HTCH6172 
HTCH6179 
MTCH6180 
HTCH6190 
MTCH620A 
MTCH6210 
MTCH6220 
MTCH6230 
MTCH6290 
MTCM6250 
MTCH6260 
HTCH6270 
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3.1.6  GLOSSARY 

Cannon  Block  /ONE/ 
IAEND 

I PUN 

ISAM(4) 

ITRACE 
SAM (22) 

Cannon  Block  /TWO/ 
— 

BIGSAM( 500,3) 

KPHO 

LARGE 

LPHO 

PHOSAM( 5,2) 


L 


1 


COMMON  VARIABLES 


Flag  set  to  "1"  if  processing  of  the  Major  Alterations 
File  is  completed;  otherwise  it  is  "0". 

Flag  set  to  "1"  if  punched  card  output  is  desired; 
otherwise  it  is  "0". 

Previous  values  of  certain  items  in  the  SAM  array, 
i.e.,  ship  type,  hull  nunber,  sequence  nunber,  and 
fiscal  year. 

Flag  set  to  "1"  if  intermediate  processing  output  is 
desired;  otherwise  it  is  "0". 

One  record  of  the  SAMIS  File;  see  Section  2. 1.3. 3. 


Array  of  large  unsequenced  SAMIS  alterations  where 
the  first  subscript  refers  to  the  number  of  such 
availabilities  and  the  second  to  (1)  AMT  mandays, 
(2)  FMP  mandays,  and  (3)  fiscal  year . 

Nunber  of  unsequenced  SAMIS  alterations. 

Input  number  of  mandays  considered  large  for  an 
unsequenced  SAMIS  alteration. 

Nunber  of  unsequenced  SAMIS  alterations  requiring  more 
than  "LARGE"  mandays. 

Array  of  all  unsequenced  SAMIS  alterations  where  the 
first  subscript  refers  to  five  consecutive  years,  and 
the  second  to  (1)  AMT  mandays  and  (2)  FMP  mandays. 
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1 


Cannon  Block  /THREE/ 


DMAF(22) 

One  record  of  the  DMAF-1  file;  see  Section  2. 1.3. 2. 

IDONLY 

Flag  set  to  "1"  if  an  availability  appears  in  the 
DMAF-1  file  but  not  in  the  SAMIS  file;  otherwise  it  is 
"0". 

IENDMF 

Flag  set  to  "1"  if  processing  of  the  DMAF-1  file  is 
canpleted;  otherwise  it  is  "0". 

IENDSM 

Flag  is  set  to  "1"  if  processing  of  the  SAMIS  file  is 
canpleted;  otherwise  it  is  "0". 

ISONLY 

Flag  set  to  "1"  if  an  availability  appears  in  the 
SAMIS  but  not  the  DMAF-1;  otherwise  it  is  "0". 

Conmon  Block  /POUR/ 

IGT750 

Nunber  of  alterations  in  a SAMIS  availability  requir- 
ing more  than  750  mandays. 

IZMD 

Nunber  of  alterations  in  a SAMIS  availability  requir- 
ing zero  mandays. 

LT750 

Number  of  alterations  in  a SAMIS  availability  requir- 
ing less  than  750  mandays. 

NALT 

Nunber  of  alterations  in  a SAMIS  availability. 

NONZMD 

Nunber  of  alterations  in  a SAMIS  availability  requir- 
ing nonzero  mandays. 

Cannon  Block  /FIVE/ 

AMT 

Nunber  of  alterations  using  AMT  estimates. 

IEXYR 

Input  execution  year. 

M) 

Mandays  required  for  an  alteration. 

MF LAG 

Flag  set  to  "1"  if  a match  appears  in  the  DMAP-1  and 
SAMIS  files;  otherwise  it  is  "0". 

NEW 

Flag  set  to  "1"  after  the  first  read  of  the  Major 
Alterations  File;  otherwise  it  is  "0". 

SAMD 

Total  mandays  for  a SAMIS  availability. 

L 


I 


Main  Program 


I BLANK 


ISKIP(8) 


Subroutine  MANDA.Y 


Subroutine  NEWALT 


ALTS(4 ,500) 


LOCAL  VARIABLES 


Index  for  DMAF-1  availabilities  which  should  be 
skipped. 

Index  for  first  three  elements  of  a SAMIS  record;  ship 
type,  hull  number,  and  sequence  number. 

A one-character  blank  space. 


Index  for  number  of  fiscal  years  tor  unsequenced 
alterations. 


Index  for  AMT  and  FMP  mandays  for  unsequenced  alter- 
ations. 


DMAF  work  types  not  to  be  processed. 

One  less  than  the  number  of  alterations  in  a SAMIS 
availability. 


Flag  set  to  "1"  after  reading  first  DMAF-1  record; 
otherwise  it  is  "0". 


Variable  used  to  test  for  ship  type  TAF. 
Variable  used  to  test  for  UNOS  data. 


Variable  used  to  test  for  ship  type  CV. 
Variable  used  to  test  for  ship  type  CVN. 
Variable  used  to  test  for  ship  type  CVT. 


All  major  alterations  which  apply  to  a particular  ship 
type;  the  first  subscript  refers  to  (1)  ship  type,  (2) 
class,  and  (3  and  4)  alteration  number,  and  the  second 
subscript  refers  to  the  number  of  such  alterations. 

Index  for  the  parameters  of  a MAF  record. 
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Subroutine  NEWALT  (Continued) 


IA 

J 

JJ 

K 

L 

N 


index  used  for  I/O  statements. 

Index  for  the  records  read  from  the  Major  Alterations 
File. 

Number  of  records  in  the  Major  Alterations  File 
which  apply  to  a particular  ship  type. 

Index  equivalent  to  "J". 

Index  used  for  I/O  statements. 

Index  for  first  three  elements  of  a SAMIS  record. 


Subroutine  ZEK025 


ANONZ  Floating  point  form  of  "NONZMD" . 

ASMD  Floating  point  form  of  "IZMD". 


I Index  used  for  I/O  statements  and  also  number  of 

alterations  in  a SAMIS  availability. 

K Index  used  for  I/O  statements. 


PROP  Ratio  of  SAMIS  mandays  to  DMAF  alteration  mandays  for 

an  availability. 

ZFAC  Proportion  of  zero-manday  alterations  in  a SAMIS 

availability. 


Subroutine  PER750 

PER  Proportion  of  alterations  requiring  less  the  750 

mandays. 


Subroutine  FYPHON 

BSAM(  5,300,2)  Individual  unsequenced  SAMIS  alterations  with  large 
manday  requirements,  the  first  subscript  refers  to 
the  fiscal  year,  the  second  to  the  number  of  such 
alterations,  and  the  third  to  (1)  AMT  mandays  and  (2) 
FMP  mandays. 

II  Index  for  fiscal  years  of  interest,  i.e.,  IEXYR, . . . , 

IEXYR  + 4. 
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Subroutine  FYPHON  (Continued) 


IK 

Nunber  of  large  unsequenced  SAMIS  alterations  in  a 
particular  fiscal  year. 

IL 

Index  for  I/O  statements. 

IYR 

A particular  year  of  the  five  consecutive  years  being 
processed. 

JJ 

Index  for  AMT  and  FMP  mandays;  also  an  index  for  the 
nunber  of  large  unsequenced  alterations. 

KK 

Index  for  the  large  unsequenced  SAMIS  alterations  in  a 
particular  fiscal  year. 

K0UNT(5) 

Number  of  large  unsequenced  SAMIS  alterations  for 
each  of  five  consecutive  fiscal  years. 

LL 

Index  for  the  five  consecutive  years  being  processed. 

Subroutine  AVDIF 

IA 

Index  used  for  I/O  statements. 
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3*1.7  SAMPLE  RUN 


A selected  subset  of  the  data  files  was  used  for  the  sample  run. 
Runs  made  with  complete  data  files  may  generate  ten  to  twenty  times 
as  much  output  as  this  sample.  Punched  cards,  as  well  as  the  intermediate 
output  on  unit  6,  were  not  obtained.  Selecting  the  option  for  intermedi- 
ate output  may  increase  the  output  volume  by  a factor  of  about  four.  The 
intermediate  output  is  used  mainly  for  debugging  additions  to  the  program, 
or  for  clarifying  certain  output?-  that  may  seem  unusual  to  the  analyst. 

All  other  reports  generated  by  the  progrem,  as  well  as  the  input 
files,  are  shown  here.  In  some  cases  only  partial  listings  are  included 
in  this  report. 


Unit  5 - Card  Input 


Hie  actual  input  card  is  punched  as  follows: 


7800007500001. 


Unit  3 - Depot  Maintenance  Assignment  File,  Version  1 (DMftF-1) 


PUGETCGN 

0 

30  C 

60129 

60  1 82AANNN  792 

82  6 71 

739000 

0 9 

1 

PUGETCGN 

0 

30  *C 

60129 

601 82A AHNM  8 01 

163508 

739000 

0 9 

2 

PUGETCGN 

9 

30  »C 

60129 

60182AAKNN602 

166152 

739000 

0 9 

3 

PUGETCGN 

0 

30  *C 

60129 

60182AANNN811 

163582 

739000 

0 9 

6 

PUGET CGN 

0 

30  *C 

60129 

601 82AAHNM812 

123009 

739000 

16  * 

5 

PUGETCGN 

9 

30  *C 

60129 

60182AANNN821 

62207 

739000 

0 9 

6 

PUGETCGN 

9 

30  »C 

60129 

60182 AANNHS22 

68 

739000 

0 « 

7 

PUGETCGN 

n 

26  RA 

11529 

315  79AANNN791 

30000 

30000 

20  1 

8 

PUGETCGN 

29 

30  RO 

60102 

80  183AANNH  822 

75  760 

298507 

1619 

9 

PUGETCGN 

39 

11  RA 

11529 

31579AANNN791 

12000 

12000 

100  1 

10 

PUGETCGN 

39 

0 RO 

60101 

80 1 82AANNN812 

75  760 

298507 

1619 

11 

PUGETCGN 

39 

0»RO 

60101 

S0182AANNN821 

165233 

298507 

1615 

12 

PUGETCGN 

39 

0»RO 

60101 

80  1 82AANNN  8 22 

57513 

298507 

1619 

13 

PUGETCGN 

36 

6 RA 

11529 

61679AANNH791 

61925 

62206 

26  1 

16 

PUGETCGN 

36 

6»RA 

11529 

3278 

67206 

26  1 

15 

PUGETCGN 

36 

10  RO 

61600 

61 681 A AHNM 8 02 

116368 

278550 

16  9 

16 

PUGETCGN 

36 

10*RO 

61600 

61 681 AAHNM  811 

166621 

278550 

16  9 

17 

PUGETCGN 

36 

10»RO 

61600 

61681 AANNM  812 

17560 

278550 

16  9 

18 

NORVACGN 

32 

6 RA 

621 28 

82278AANNE  782 

20600 

20600 

39  : 

19 

NORVACGN 

32 

10  RO 

10281 

30582AAHNE811 

68369 

278000 

1613 

20 

NORVACGN 

32 

10  *RO 

10281 

30  582AA  HNE  812 

161821 

276000 

1613 

21 

NORVACGN 

32 

10»RO 

10201 

30582AAHNE  821 

67808 

Z7S000 

1613 

22 

NORVACGN 

36 

6 RA 

80329100229AANNE292 

11955 

12000 

32  1 

23 

NORVACGN 

36 

6»RA 

80329180  Z 79 A ANNE  601 

66 

12000 

32  1 

26 

NORVACGN 

36 

10  RO 

70182 

90283AAHNE  822 

69808 

278000 

913 

25 

PUGETCGN 

39 

6 RA 

21529 

91579AANNM792 

12000 

12000 

100  1 

26 

chasncgn 

60 

6 RA 

50182 

701 82AANNE  822 

12000 

12000 

100  1 

27 

NNPACCV 

61 

35  RA 

21028 

91178CVAPM782 

60  000 

68000 

6917 

28 

PUGETCV 

61 

36  RA 

111028 

11179CVANM791 

60  000 

60000 

6817 

29 

LBECHCV 

61 

60  RO 

101280101281 CEANM811 

179097 

396065 

0 1 

30 

LBECNCV 

61 

60»RO 

10 12*0101 281CVAHH81 2 

215672 

396065 

0 1 

31 

LBECHCV 

61 

60»RO 

101280101281CVANM821 

1676 

3960  65 

0 1 

32 

LBECHCV 

63 

60  RO 

1130221129  28CVANM2  81 

126006 

362067 

1726 

33 

LBECHCV 

63 

60*RO 

1130221129  78CVANV7A2 

199985 

362067 

1726 

36 

LBECHCV 

63 

60»RO 

11 3022112928CVANM291 

18076 

362067 

1726 

35 

0 12  CV 

63 

61  RA 

31080 

71180CVAPV801 

2096 

10000 

017 

36 

D 12  CV 

63 

61»RA 

31080 

71180  CVAPM802 

790  3 

10000 

017 

37 

0 06  CV 

99 

61  RA 

110378 

129  79CVAPE  791 

71258 

73258 

3917 

38 

NORVACV 

99 

62  RA 

50380 

72988CVANE  802 

63000 

68000 

6317 

39 

NOR  VAC  V 

99 

63  RA 

100181 

18182CVANE  821 

60000 

68000 

6617 

60 

0 06  CV 

60 

53  RA 

10670 

60  3 78CV  APE  781 

86977 

89360 

601  7 

61 

0 B6  CV 

60 

53»RA 

106  78 

603  78CVAPE  782 

2382 

89360 

6017 

62 

NORVACV 

60 

60  RO 

620791201  79CVANE  792 

196966 

260000 

6723 

63 

NORVACV 

60 

60»RO 

620791 20 179CVANE  801 

65055 

260000 

6723 

66 

0 06  CV 

60 

61  RA 

701821 0O182CVAPE  822 

596  86 

60000 

6217 

65 

PUGETCV 

61 

50  RO 

21577 

21576CVANM781 

111606 

663300 

3826 

66 

0 11  CV 

61 

51  RA 

20180 

50180CVAPM801 

66312 

60000 

62  1 

67 

0 11  CV 

61 

51  »RA 

20180 

50180CVAPM802 

15687 

60000 

62  1 

68 

0 11  CV 

61 

52  RA 

90181120181CVAPN812 

16  731 

60000 

66  1 

69 

0 11  CV 

61 

52»RA 

90181120 181CVAPM821 

65268 

60000 

66  1 

50 

NORVACV 

62 

60  RO 

11217710  1 978C VANE  7 81 

160  669 

366352 

6123 

51 

NORVACV 

62 

60  *RO 

112177101978CVANE782 

199596 

366352 

6123 

52 

NORVACV 

62 

60  *RO 

11 21771  019  78CV  ANE  791 

6286 

366352 

6123 

53 

NORVACV 

62 

61  RA 

90179112679CVANE792 

29389 

69170 

6217 

56 

NORVACV 

62 

61«RA 

90 179112679CVANE  801 

39780 

69170 

6217 

55 

0 11  CV 

62 

62  RA 

10281 

60 181CVAPU  81 1 

59925 

60000 

61  1 

56 

0 11  CV 

62 

62#RA 

10281 

60181CVAPM812 

76 

60000 

61  1 

57 

0 11  CV 

62 

63  RA 

50182 

00102CVAPM822 

60000 

60000 

61  1 

58 
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1 


CGN 

9 

S A 

212 

1 

.0000  .0615 

.0130 

.0000 

.0419 

. 0000 

. 0000 

.0296 

.0000 

.4861 

CGN 

9 

SA 

21 T 

2 

.0260  .0209 

.0000 

.2657 

.0188 

.0347 

.0090 

.0000 

.0000 

. 0030 

CGN 

9 

SA 

21 T 

3 

1.0000  PFRA(CO) 

CGN 

9 

SA 

23# 

1 

.0000  .6152 

. 0000 

.0000 

.2661 

.0642 

.0000 

.0000 

. 0000 

.0030 

CGN 

9 

SA 

238 

2 

.0000  .0092 

.0000 

.0000 

.0367 

. 0092 

.00  00 

.0000 

.0000 

.ooco 

CGN 

9 

SA 

238 

3 

i.oooo  peraico) 

CGN 

9 

SA 

288 

1 

.0000  .1126 

.0143 

.0000 

.0810 

. 0000 

.0000 

.0314 

. 0000 

. 397  8 

CGN 

9 

SA 

268 

2 

.0423  .0439 

.0000 

.2038 

.0257 

.0473 

.0000 

.0000 

. 0000 

. 0090 

CGN 

9 

SA 

268 

3 

1.0000  PFRA(Cn) 

CGN 

9 

SA 

298 

1 

.3000  .1025 

.0300 

.0000 

.0621 

. 0000 

.0000 

.0435 

. 0000 

.3820 

CGN 

9 

SA 

298 

2 

.0000  .0212 

. 0000 

.3043 

.0186 

.0652 

.0000 

.0000 

.0000 

. 0000 

CGN 

9 

SA 

298 

3 

1.0000  PEP A (CO) 

CGN 

9 

SA 

322 

1 

.0000  .6129 

.0000 

.0000 

.1505 

. 0000 

. 0090 

.0430 

. 0000 

.0968 

CGN 

9 

SA 

322 

2 

.0645  .0000 

. 0000 

.0009 

.9323 

. 0000 

.0000 

.0000 

.0000 

.0000 

CGN 

9 

SA 

322 

3 

1.0000  PERA(CH) 

CGN 

9 

SA 

36% 

1 

.0000  .1330 

.0482 

.0000 

.1686 

. 0202 

. 0000 

.1021 

.0606 

. 0000 

CGN 

9 

SA 

38% 

2 

.3135  .0102 

. 0000 

.0000 

.0499 

.0926 

.coco 

. 0300 

. 0000 

.0030 

CGN 

9 

St 

36% 

3 

1.0000  PFRA(CD) 

CGN 

35 

SA 

126 

1 

.0000  .0641 

.0167 

.0000 

.0654 

. 0000 

.0000 

.1026 

.0090 

.1496 

CGN 

35 

SA 

128 

2 

.08%1  .0462 

. 0000 

.2430 

.0374 

. 1495 

.0000 

. 0000 

.0187 

. 0000 

CGN 

35 

SA 

128 

3 

1.0000  PER A ( CD) 

CGN 

36 

SA 

23 

1 

.0000  .0214 

.0079 

.0000 

.0635 

. 0000 

.0000 

.0794 

. 0238 

.261  9 

CGN 

36 

SA 

23 

2 

.0635  .0392 

. 0000 

.2143 

.0556 

. 1111 

. 0000 

.0000 

. 0079 

. 0090 

CGN 

36 

SA 

23 

3 

1.0030  PFRA(CD) 

CV 

SA 

3091 

1 

.0000  .0242 

.1224 

.0000 

.2345 

. 0232 

.0000 

.0902 

. 0000 

.0062 

CV 

SA 

3091 

2 

.4111  .0103 

. 0000 

.0000 

.0052 

. 0166 

.0000 

.0000 

.0064 

. 0090 

CV 

SA 

3091 

3 

1.0000 

CV 

SA 

309% 

1 

.0003  . 1345 

.00  32 

.0000 

.1321 

.0016 

.0000 

.0198 

. 0000 

.2176 

CV 

SA 

309% 

2 

.0620  .0166 

.0000 

.0000 

.2223 

. 1566 

.0000 

.0000 

. 0087 

. 0000 

CV 

S» 

309% 

3 

1.0000 

CV 

SA 

323  3 

1 

.0000  .1349 

.0000 

. 0003 

.1403 

.0378 

.0000 

.0603 

. 0000 

.0809 

CV 

SA 

3233 

2 

.4662  .0009 

.0000 

.9000 

.0121 

.0486 

.0000 

.0000 

. 0061 

.0045 

CV 

SA 

3233 

3 

1.0000 

CV 

SA 

3%96 

1 

.0000  .1019 

.0157 

.0003 

.0925 

.0188 

.0000 

.0345 

.0000 

.1265 

CV 

SA 

3%96 

2 

.4234  .0298 

. 0000 

.0063 

.0423 

. 0486 

.0000 

.0003 

.0076 

. 0000 

CV 

SA 

3%96 

3 

1.0000 

CV 

SA 

3512 

1 

.0000  .1649 

.0640 

.0000 

.1841 

.0261 

.0000 

.0047 

.0049 

.0890 

CV 

SA 

3512 

2 

.2606  .0455 

. 0000 

.0000 

.0322 

.0999 

.0000 

.0000 

. 0038 

. 0000 

CV 

SA 

3512 

3 

1.0000 

CV 

SA 

3556 

1 

.0000  .0512 

.0065 

.0000 

.1159 

. 0071 

.0000 

.0149 

. 0000 

.3060 

CV 

SA 

3556 

2 

.4334  .0166 

.0000 

.0000 

.0161 

.0297 

. 0000 

.0000 

.0000 

.0090 

CV 

SA 

3556 

3 

1.0000 

CV 

SA 

36  3 5 

1 

.0000  .1361 

.0050 

.0248 

.1832 

.0108 

.0000 

.1609 

. 0000 

.2847 

CV 

SA 

3635 

2 

.0123  .0000 

.02  48 

.0000 

.0347 

. 0000 

.0000 

. 0000 

. 0000 

.1089 

CV 

SA 

3635 

3 

1.0000 

CV 

SA 

3215 

1 

.0000  .0423 

.29  63 

.0000 

.0988 

. 9226 

. 0000 

.00  85 

. 0000 

.1158 

CV 

SA 

3215 

2 

.2399  .0509 

.00G0 

.0000 

.0558 

.0691 

. 0000 

.0000 

. 0000 

.000  0 

CV 

SA 

3215 

3 

1.0000 

CV 

SA 

3235 

1 

.0000  .0632 

.3758 

.0000 

.1275 

.0033 

.0000 

.0131 

. 0000 

.326  8 

CV 

SA 

3235 

2 

.0000  .0030 

.0294 

.0000 

.0359 

.0245 

.0000 

. 0300 

. 0000 

.0090 

CV 

SA 

3235 

3 

1.0000 

CV 

SA 

3235 

1 

.0000  .0661 

.2761 

.0000 

.1126 

. 0045 

.0000 

.0223 

.0000 

.11*5 

CV 

SA 

3236 

2 

.2699  .0295 

. 0000 

.0000 

.0840 

.0214 

.0000 

.0000 

.0000 

.0000 

CV 

SA 

3236 

3 

1.0000 

CV 

SA 

322% 

1 

.0000  .1900 

.0291 

.0022 

.2524 

.0330 

.0  000 

.1282 

.0003 

.0663 

CV 

SA 

322% 

2 

.1232  .0000 

.0417 

.0005 

.0372 

.0636 

.0002 

.0005 

. 0000 

.0315 

CV 

SA 

322% 

3 

1.0000 

CV 

SA 

3800 

1 

.0000  .2099 

.00  25 

.0000 

.2912 

. 0064 

.0000 

.0303 

.0000 

.0818 

CV 

SA 

3800 

2 

.2314  .0021 

. 0000 

.0000 

.0295 

.1054 

.0000 

.0900 

.0013 

.0063 

L 


39 


CGN 

9 

SA 

21? 

1 

.0000  .061% 

.0130 

.0000 

.0419 

. 0000 

. 0000 

.0296 

.0000 

.48*1 

CGN 

9 

sa 

21? 

2 

.0260  .0209 

.0000 

.2657 

.0188 

.0347 

.0030 

.0000 

. 0000 

. 0030 

CGN 

9 

s * 

21? 

3 

1.0000  PERAiCO) 

CGN 

9 

SA 

238 

1 

.0000  .6147 

.0000 

.0000 

.2661 

.0642 

.0000 

.0000 

.0000 

.0030 

CGN 

9 

SA 

23* 

2 

.0000  .0092 

.0000 

.0000 

.0367 

. 0092 

. 0000 

.0000 

. 0000 

. 0000 

CGN 

9 

SA 

23* 

3 

1.0000  PERA(CO) 

CGN 

9 

SA 

2 AS 

1 

.0000  .1126 

.0143 

.0000 

.3810 

. 0000 

.cooo 

.0314 

.0000 

. 392* 

CGN 

9 

SA 

2 A A 

2 

.0473  .0439 

. 0000 

.2038 

.0257 

.0473 

.0000 

.0000 

. 0000 

. 0000 

CGN 

9 

SA 

2A  A 

? 

1.0000  PFRA(CO) 

CGN 

9 

SA 

29A 

1 

.0000  .1025 

.0300 

.0003 

.0621 

. 0000 

.0000 

.0435 

. 0000 

.3*20 

CGN 

9 

SA 

29# 

» 

.0000  .0217 

.0000 

.3043 

.0186 

.0652 

.0000 

.0000 

. 0000 

.0000 

CGN 

9 

SA 

29* 

3 

1.0000  PEPA(CO) 

CGN 

9 

SA 

322 

1 

.0000  .6129 

.0000 

.0000 

.1505 

. 0000 

.0030 

.0430 

. 0000 

.0968 

CGN 

9 

SA 

322 

2 

.0645  .0000 

.0000 

.0003 

. 3323 

. 0000 

.0000 

.0000 

. 0000 

.0000 

CGN 

9 

SA 

322 

3 

1.0000  PERA (Cn) 

CGN 

9 

SA 

3 A% 

1 

.0000  .1330 

.04*7 

.0000 

.1686 

. 0202 

. 0000 

.10  21 

.0606 

. 0000 

CGN 

9 

SA 

38% 

2 

.3135  .0107 

. 3000 

.0000 

.0499 

.0926 

.coco 

.0000 

.0G00 

. 0030 

CGN 

9 

SA 

38% 

3 

1.0000  PFRAICO) 

CGN 

35 

SA 

129 

1 

.0000  .0*41 

.01*7 

.0000 

.0654 

. 0000 

. 0000 

.102* 

. 0000 

.1495 

CGN 

35 

SA 

128 

2 

.0*41  .0467 

. 0000 

.2430 

.0374 

. 1495 

.0000 

.0000 

.0187 

.0000 

CGN 

35 

SA 

12* 

3 

1.0000  PFRACCO) 

CGN 

36 

SA 

23 

1 

.0000  .0714 

.00  79 

.0000 

.0635 

. 0000 

.0000 

.0794 

.0238 

.2619 

CGN 

36 

SA 

23 

2 

.0635  .0397 

. 0000 

.2143 

.0556 

. 1111 

. 0000 

.0000 

. 00  79 

.0030 

CGN 

36 

SA 

23 

3 

1.0000  PFRAICO) 

CV 

SA 

3091 

1 

.0300  .0747 

.1224 

. 0000 

.2345 

. 0232 

. 0000 

.0902 

. 0000 

.0052 

CV 

SA 

3091 

2 

.4111  .0103 

. 0000 

.0000 

.0052 

. 016* 

. 0000 

. 0000 

.0064 

. 0000 

CV 

SA 

3091 

3 

1.0000 

CV 

SA 

309% 

1 

.0003  .1345 

.0032 

.0000 

.1321 

.0016 

.0000 

.0198 

. 0000 

.2176 

CV 

SA 

309% 

2 

.0*70  .0166 

.0000 

.0000 

.2223 

. 1566 

.0000 

.0000 

.00*7 

.0000 

CV 

SA 

309% 

3 

1.0000 

CV 

SA 

3233 

1 

.0000  .1349 

. 0000 

.0003 

.1403 

. 037* 

.0000 

.0603 

.0000 

.0809 

CV 

SA 

3233 

2 

.4667  .0009 

. 0000 

.0000 

.0171 

.0486 

. 0000 

. 0000 

. 00*1 

.0045 

CV 

SA 

323  3 

3 

1.0000 

CV 

SA 

3%96 

1 

.0000  .1019 

.0157 

.0003 

.0925 

.0188 

. 0000 

.0345 

.0000 

.12*5 

CV 

SA 

3%96 

2 

.4734  .0298 

. 0000 

.0063 

. 0423 

. 0486 

. 0000 

. 00  00 

.0078 

.0030 

CV 

SA 

3496 

3 

l.OCOO 

CV 

SA 

3512 

1 

.0000  .1*49 

.06  40 

.0000 

.1841 

. 0261 

. 0000 

.0047 

.0049 

.0890 

CV 

SA 

3512 

2 

.260*  .0455 

. 0000 

.0000 

.0322 

.0999 

.0000 

.0000 

.003* 

.0000 

CV 

SA 

3512 

3 

1.0000 

CV 

SA 

3556 

1 

.0000  .0517 

.0065 

.0000 

.1159 

. 0071 

. 0000 

.0149 

.0000 

.30*0 

CV 

SA 

3556 

2 

.4334  .0166 

.0000 

.0000 

.0161 

. 0297 

. 0000 

. 0000 

.0000 

. 0030 

CV 

SA 

3556 

3 

1.0000 

CV 

SA 

3635 

1 

.0000  .1361 

.0050 

.0248 

.1832 

.0198 

. 0000 

.1609 

. 0000 

.2847 

CV 

SA 

3635 

2 

.0173  .3000 

.02  48 

.0000 

.0347 

. 0000 

. 0000 

. 0000 

. 0000 

.10*9 

CV 

SA 

3635 

3 

1.0000 

CV 

SA 

3?15 

1 

.0000  .0423 

.29  63 

.0000 

.098* 

. 0226 

. 0000 

.0085 

.0000 

.1158 

CV 

SA 

3?  15 

2 

.2399  .0509 

.00G0 

.0000 

.0558 

.0691 

.0000 

.0000 

.0000 

.0000 

CV 

SA 

3?1 5 

3 

1.0000 

CV 

SA 

3?35 

1 

.0000  .0637 

.3758 

.0000 

.1275 

. 0033 

. 0000 

.0131 

. 0000 

.326  8 

CV 

SA 

3735 

2 

.0000  .0000 

.0294 

.0000 

.0359 

.0245 

.0000 

.0000 

. 0000 

.0000 

CV 

SA 

3735 

3 

1.0000 

CV 

SA 

3736 

1 

.0000  .0661 

.2761 

.0000 

.1126 

.0045 

.0000 

.0223 

.0000 

.1175 

CV 

SA 

3736 

2 

.2699  .0295 

.0000 

.0000 

.0840 

.0214 

.0000 

.0000 

.0000 

.0000 

CV 

SA 

3736 

3 

1.0000 

CV 

SA 

377% 

1 

.0000  .1900 

.0291 

.0022 

.2524 

.0330 

.0000 

.1282 

.0003 

.0663 

CV 

SA 

37  7% 

2 

.1232  .0000 

.0417 

.0005 

.0372 

.0638 

. 0002 

.0005 

.0000 

.0315 

CV 

SA 

377% 

3 

1.0000 

CV 

SA 

3*00 

1 

.0000  .2099 

.00  25 

.0000 

.2912 

. 0084 

.0000 

.0303 

. 0000 

.0818 

CV 

SA 

3*00 

2 

.2314  .0021 

.0000 

.0000 

.0295 

.1054 

.0000 

.0000 

. 0013 

.0063 

40 


Unit  1 - 


AVAILABILITIES  ONLY  IN  OHAF 


TYPE 

HULL 

SEQ  .NO* 

FY 

CGN 

9 

30 

79 

CGN 

9 

30 

80 

CGN 

9 

30 

80 

CGN 

9 

30 

81 

CGN 

9 

30 

81 

CGN 

9 

30 

82 

CGN 

9 

30 

82 

CGN 

35 

11 

79 

CGN 

40 

4 

82 

CV 

43 

41 

80 

CV 

59 

43 

82 

Unit  10  - 


PROPORTION  OF  ALTS  NlTH  NAN  OATS  < T50 
TYPE  PROPORTION 


CGN 
U V 


53 


Unit  2 


illegal  sabs 


SMBS 

TYPE 

HULL 

SEQ.NO. 

ALT. NO. 

FT 

0 

CGN 

25 

30 

010  76 

02 

NUTE 

0 

CGN 

35 

20 

00  369 

01 

NUTE 

0 

CBN 

3S 

20 

N7110 

01 

O/A  FOR  INPROVEO  TRACK  MODULE 

0 

CGN 

35 

20 

00206 

01 

OEEP  FAT  FRYER  FIRE  PROTECTION 

0 

CGN 

36 

10 

00113 

00 

NUTE 

0 

CGN 

37 

10 

00113 

01 

NUTE 

0 

CGN 

30 

10 

000£3 

02 

INSTL  NUTE 

0 

CV 

62 

35 

N0091 

76 

NK  20  RLS  FRNG  SM  GRO 

20 

CV 

63 

60 

03611 

70 

INSTL  NAVAL  TACTICAL  OATA  SYS 

0 

CV 

59 

33 

N1320 

76 

BPOSNS  BASELINE  6 

0 

CV 

59 

33 

MO  091 

76 

NK  28  RLS  FRNG  SM  GRO 

0 

CV 

59 

33 

M0019 

76 

BPOSNS  BASELINE  5 

0 

CV 

59 

60 

06760 

77 

EA6B  OTS  VANS 

0 

CV 

59 

60 

06593 

77 

CV  AIR  MING  PERS  LIFE  SUPPORT 

60 

CV 

59 

60 

03931 

77 

INSTALL  CV-TSC 

0 

CV 

60 

51 

H0019 

76 

BPOSNS  BASELINE  5 

0 

CV 

60 

51 

M1310 

76 

BPOSNS  BASELINE  3 

0 

CV 

60 

51 

M0091 

76 

NK  28  RLS  FRNG  SM  GRO 

0 

CV 

60 

51 

06553 

76 

CV  AIR  MING  PERS  LIFE  SUPPORT 

0 

CV 

60 

51 

06760 

76 

EA6B  CTS  VANS 

0 

CV 

60 

52 

M0092 

77 

NK  20  RLS  RiM  IMP 

0 

CV 

60 

52 

M1320 

77 

BPOSNS  BASELINE  6 

0 

CV 

60 

52 

Ml  2 65 

77 

NK  28  CHAFF  SYS  IMPROVEMENTS 

0 

CV 

60 

52 

M0061 

77 

BPOSNS  BASELINE  6 

0 

CV 

60 

60 

M0050 

79 

ASNO-OROALTS  FOR  CIMS  INSTALL 

0 

CV 

61 

50 

06593 

77 

CV  AIR  MING  PERS  LIFE  SUPPORT 

60 

CV 

61 

50 

03931 

77 

INSTALL  CV-TSC 

0 

CV 

61 

50 

0650  6 

77 

NTOS-ASNO  MOOS 

0 

CV 

61 

51 

06770 

00 

HCT-10 

0 

CV 

62 

33 

M1265 

76 

NK  28  CHAFF  SYS  IMPROVEMENTS 

0 

CV 

62 

33 

M1265 

76 

NK  20  CHAFF  SYS  IMPROVEMENTS 

0 

CV 

62 

33 

M0091 

76 

NK  20  RLS  FRNG  SM  GRO 

0 

CV 

62 

33 

M12E5 

76 

NK  28  CHAFF  SYS  IMPROVEMENTS 

0 

CV 

62 

33 

M0019 

76 

BPOSNS  BASELINE  5 

0 

CV 

62 

33 

06760 

76 

EA6B  OTS  VANS 

60 

CV 

62 

33 

03931 

76 

IN5T ALL  CV-TSC 

0 

CV 

62 

61 

05360 

79 

NUTE 

! 


r — — 


Unit  8 - 
NEH  ALTS 


ALT.NO. 

TYPE 

HULL 

SEQ.NO. 

FT 

ALT.  BRIEF 

0 0 233 

CGN 

25 

24 

79 

HARPOON 

00234 

CGN 

25 

30 

32 

HF  SECURE  VOICE  PARKHILL 

0107b 

CGN 

25 

30 

82 

MUTE 

00226 

CGN 

25 

30 

62 

ASMG  AOT  FOR  SPA  46A 

01062 

CGN 

25 

30 

62 

NAVY  GROHTH  RAOIO 

00273 

CGN 

25 

30 

62 

NAVMACS  A PLUS 

00270 

CGN 

25 

30 

62 

AS  MO  DECOYS  SUPER  RBOC  MK36  0 

0 0 266 

CGN 

25 

30 

62 

ASMO  PLAN-SM-2  CAPABILITY 

00266 

CGN 

25 

30 

62 

ASMD  PLAN-INSTL  IRST  SET 

01032 

CGN 

25 

30 

62 

ENCAPSULATED  LIFERAFTS 

0102V 

CGN 

25 

30 

82 

HP  AIP  COMPRESSORS  (20CFM) 

01022 

CGN 

25 

30 

62 

BILGE  PUMP  IMPS 

0 0 262 

CGN 

25 

30 

82 

ASMO  PLAN-AN/SPS-49 

00263 

CGN 

25 

30 

62 

ASMO  PLAN-CLOSE  IN  HEAPS  SYS 

01054 

CGN 

25 

30 

82 

SINGLE  AUDI C SYSTEM 

01037 

CGN 

25 

30 

62 

OESIGN  TO  PRICE  EM-III 

0 1065 

CGN 

25 

30 

62 

COMM  SYS  PACKAGE 

01066 

CGN 

25 

30 

82 

UHF  SECURE  VOICE  PLAIN  CIPHER 

09050 

CGN 

25 

30 

82 

COMPUTER  REPROGRAMMING 

01061 

CGN 

25 

30 

82 

UHF/VHF  SEC  VOICE  VINSON 

00126 

CGN 

35 

20 

81 

ASMO  OECOYS  SUPER  RBOC 

00116 

CGN 

35 

20 

61 

ASMO  PLAN-CLOSE  IN  HEAPS  SYS 

00134 

CGN 

35 

20 

61 

UHF  SECURE  VOICE  PLAIN  CYPHER 

0 0 3*»9 

CGN 

35 

20 

81 

MUTE 

00351 

CGN 

35 

20 

81 

SPS-40  ATO 

00110 

CGN 

35 

20 

81 

ASMO  PLAN-AUTO  OET/TRK  SPS  48A 

00286 

CGN 

35 

20 

61 

9ILGE  PUMP  IMPROVEMENT 

00270 

CGN 

35 

2C 

81 

INSTL  MULTI  HSC-3  SAT  COMM  {41 

00150 

CGN 

35 

20 

81 

SSB-LF/MF  REPL  AN/URC  32 

00164 

CGN 

35 

20 

61 

ASMO  PLAN-TRK  MOO 

0 0164 

CGN 

35 

20 

81 

COMM  SVSTS  PACKAGE 

00216 

CGN 

35 

20 

61 

ASMD  PLAN-SP-2  CAPABILITY 

00215 

CGN 

35 

20 

61 

NAVMACS  “A"  PLUS 

00291 

CGN 

35 

20 

81 

HP  AIR  COMPRESSORS  (20CFH) 

00326 

CGN 

35 

20 

61 

OESIGN  TO  PRICE  EH  (III) 

00300 

CGN 

35 

20 

61 

ENCAPSULATEC  LIFE  RAFTS 

00334 

CGN 

35 

20 

81 

SINGLE  AUDIO  SYSTEM 

09050 

CGN 

35 

20 

81 

COMPUTER  REPROGRAMMING 

0 0 337 

CGN 

35 

20 

61 

NAVY  GROHTH  RAOIO 
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Unit  13  - 


» 


availabilities  only  in  sahis 


TYPE 

HULL 

SEQ.NO. 

FY 

CGN 

25 

23 

77 

CV 

41 

33 

76 

CV 

41 

34 

77 

CV 

42 

35 

76 

CV 

43 

33 

76 

CV 

59 

33 

76 

CV 

59 

40 

77 

CV 

59 

50 

82 

CV 

60 

51 

76 

CV 

60 

52 

77 

CV 

61 

60 

62 

CV 

62 

33 

76 

Unit  16  - 


NAN DAYS  FOR  AVAILABILITIES  ONLY  IN  SANIS 


CGN 

25 

23 

77 

795 

CV 

41 

33 

76 

2040  3 

CV 

41 

34 

77 

20427 

CV 

42 

35 

76 

5562 

CV 

43 

33 

76 

32461 

CV 

59 

33 

76 

23061 

CV 

59 

40 

77 

113034 

CV 

59 

50 

82 

166238 

CV 

60 

51 

76 

11655 

CV 

60 

52 

77 

21815 

CV 

61 

60 

82 

115534 

CV 

62 

33 

76 

30413 
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Unit  14 


AVAILABILITIES  WITH  MORE  THAN  25  0/0  2ER0-NAN0AY  ALTS 

TYPE  HULL  SEQ.NO.  FV  PROPORTION  OF  ZERO  HAN  DAY  ALTS 


CV 


60 


51  76 


.333 


Unit  15  - 


individual  zero-manoay  alts 


ALT. NO. 

TYPE 

HULL 

SEQ.NO. 

FY 

01069 

CGN 

25 

30 

62 

N 7110 

CGN 

35 

20 

61 

0 0 360 

CGN 

35 

20 

81 

00125 

CGN 

37 

10 

81 

09050 

CV 

61 

36 

77 

M 0 091 

CV 

62 

35 

76 

06766 

CV 

63 

33 

76 

06250 

CV 

63 

33 

76 

09050 

CV 

59 

33 

76 

06250 

CV 

59 

33 

76 

N 0 091 

CV 

59 

33 

76 

6 0 019 

CV 

59 

33 

76 

06766 

CV 

60 

51 

75 

60019 

CV 

60 

51 

7b 

61310 

Cv 

60 

51 

76 

60U91 

CV 

60 

51 

76 

60092 

CV 

6C 

52 

77 

60061 

cv 

60 

52 

77 

60050 

cv 

60 

60 

79 

09050 

cv 

60 

61 

61 

05253 

cv 

61 

50 

77 

05302 

cv 

62 

33 

76 

09050 

cv 

62 

33 

76 

60091 

cv 

62 

33 

76 

M0C19 

cv 

62 

33 

76 

09050 

cv 

62 

61 

7i 

09050 

cv 

62 

63 

82 

ALT.  BRIEF 


instl  an/sps-io  solid  state 
O/A  for  improved  track  hooule 
instl  an/sps-io  solid  state 

INSTL  AN/SPS-10  SOL 10  STATE 
COMPUTER  PROGRAMMING 
MK  26  RLS  FRNG  SW  GRO 
INSTALL  AN/NLR-U  IFM  RCVR  SYS 
AN/SRR-1  RECEIVING  SET  INSTL 
COMPUTER  PROGRAMMING 
AN/SRR-1  RECEIVING  SET  INSTL 
MK  26  RLS  FRNG  SN  GRO 
BPOSMS  BASELINE  5 
INSTALL  AN/NLR-11  IFM  RCVR  SYS 
BPOSMS  BASELINE  5 
BPOSMS  BASELINE  3 
MK  28  RLS  FRNG  SN  GRO 
MK  26  RLS  RIM  IMP 
BPOSMS  BASELINE  6 
ASMO-OKGALTS  FOR  C1MS  INSTALL 
COMPUTER  PRCGRAMMING 
DUAL  CH.  CAP.  FOR  LINK  UA 
ANT  RE PL  RELOC 
COMPUTER  PRCGRAMMING 
MK  26  RLS  FRNG  SN  GRC 
BPOSMS  BASELINE  5 
COMPUTER  PRCGRAMMING 
COMPUTER  PRCGRAMMING 
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3.2  PROGRAM  FIXSAM 


3.2.1  DESCRIPTION 

Program  FIXSAM  is  a routine  for  making  corrections  to  the  Ship 
Alterations  Management  Information  System  (SAMIS)  file.  It  assumes  that 
the  SAMIS  file  has  been  created  with  sequential  record  numbers.  Individ- 
ual  data  items  on  a single  record  or  on  a series  of  records  may  be  changed. 
Replacement  values  are  input  from  cards  which  contain  the  data  item  or 
items  to  be  changed  and  the  corresponding  record  numbers.  If  the  same 
value  is  to  be  changed  in  a series  of  records,  the  first  and  last  record 
numbers  of  the  sequence  are  input.  This  version  of  FIXSAM  does  not  allow 
changes  in  the  alterations  brief,  AMT  dollar  expenditures,  or  FMP  dollar 
expenditures. 

The  input  card  is  a card  image  of  a SAMIS  record.  Since  it  has  the 
same  format,  values  to  be  changed  are  punched  in  the  columns  corresponding 
to  positions  on  the  record.  The  record  numbers  (IRECl  and  IREC2)  are  the 
last  two  items  on  the  card.  If  a single  record  is  to  be  altered,  the 
variable,  IREC2,  is  omitted. 

If  a sequence  of  record  numbers  is  illogical,  an  error  message  is 
written  and  those  corrections  are  emitted.  When  the  program  is  unable  to 
find  a record  number,  the  remaining  records  are  copied. 

Any  record  that  is  altered  is  printed  out.  The  original  record  is 
identified  by  a "D"  for  deleted  and  the  revised  record  has  an  "I"  indicat- 
ing an  insertion.  The  last  record  number  encountered  is  also  given.  This 
summary  sheet  allows  the  data  to  be  checked  to  ensure  that  corrections 
have  been  entered  properly. 

The  updated  file  is  written  on  a file  called  "SAMIS  Backup."  The 
output  of  the  updating  should  be  reviewed  carefully  before  the  SAMIS 
Backup  file  is  copied  to  the  original  file. 
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3.2.2  RUN  SET-UP 


The  following 


set-up  is  used  to  run  the  FIXSAM  program  on  the  IBM 


360/370  computer: 


//NVSFXSAM  JOB  (XXXXXXXXXX.XXXXX*  .USER. CLASS'D. TINE*12,0».NSGLEVEL»1 
//JOBLIB  00  OSN'NVSOl.OEPOT.LIB.OISP'SHR 
//  EXEC  PGN'FIXSAN 

//GO. FT  05F  0 01  OO  • INPUT  CAROS  FOLLOW 


FIXSAM  card  Inputs  (unit  5) 


//GO.FT06F  0 01  00  SYSOUTaA 

//GO.FT00F  001  00  OSN'NVSO 1 .SAMIS • OATA . 0 ISP'SHR  IINPUT  FILEI 

//GO. FT 09F  001  00  OSN'NVSOl. SAMIS. BACXUP. OATA, OISP'SMR  (CORRECTEO  SANISI 


//NVSCOPY  JOB  1XKXXXXXXXX.XXXXKI , USER. CIA SS=C. TIME** , 15 ). N SGLEYEl *1 
//JOBLIB  00  OSN'NVSOl. DEPOT. LIB, OISP'SMR 

//  EXEC  PGM*IEBGEMER  1C OPT  SAMIS  FROM  BACKUP* 

//SYSIN  00  OUHMY 
//SYSPRINT  DO  SYSOUT=A 

//SYSUT1  00  OSN*NYS31. SAMIS. BACKUP. OATA, OISF'SMR 
//SYSUT?  00  OSN'NVSOl. SAMIS. OATA, OISP=SHR 
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3.2.3  INPUT 


Card  inputs  to  FIXSAM  are  made  on  unit  5.  The  format  for  these 
cards  is  given  in  Section  3. 2. 3.1. 

Unit  5 - Card  inputs  which  give  replacement  values  and 
identify  the  record  mmber. 

The  following  additional  unit  is  used  to  input  information  from  a 
disk  file: 

Unit  8 - Ship  Alterations  Management  Information  System 
(SAMIS) 

The  format  for  this  file  is  given  in  Section  3. 2. 3. 2. 
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r 


I: 

; 


1 


3. 2. 3.1  Unit  5 - Card  Input 


The  format  for  each  input  card  is  as  follows: 


Variable  Name 

Description 

Field 

Format 

UFIEID(i) 

Ship  type 

1-4 

A4 

UFIEID(2) 

Hull  nunber 

5-8 

A4 

UFIELD(3) 

Sequence  nunber 

9-12 

A4 

UFIEID(4) 

Fiscal  year 

13-15 

A3 

UFIEI£>(  5) 

Type  work 

17-19 

A3 

UFIEID(6) 

SWBS  nunber 

20-22 

A3 

UFIELD(7-8) 

AMT  mandays 

27-31 

Al,A4 

UFIELD(9-10) 

FMP  mandays 

33-37 

Al  ,A4 

UFIEID(ll) 

SAMIS  type 

41-44 

A4 

UFIEID( 12-13) 

Alteration  identification 
nunber 

45-49 

A1,A4 

UFIELD(14) 

SAMIS  class 

53-56 

A4 

IREC1 

Record  nunber 
to  be  changed 

66-71 

16 

IREC2 

Last  record  nunber  of  a 
sequence  to  be  changed. 

(If  an  individual  rec- 
ord is  altered  IREC2 
is  blank.) 

75-80 

16 

3. 2. 3. 2 Unit  8 - Ship  Alterations  Management  Information  System  (SAMIS) 


The  formats  for 

the  records  on  the  SAMIS  file 

are  as  follows: 

Variable  Name 

Description 

Field 

Format 

DFIEID(l) 

Ship  type 

1-4 

A4 

DFIEUD(2) 

Hull  nimber 

5-8 

A4 

DFIEID(3) 

Sequence  nimber 

9-12 

A4 

DFIELD(4) 

Fiscal  year 

13-15 

A3 

DFIELD( 5) 

Type  work 

17-19 

A3 

DFIEU>(6) 

SWBS  nimber 

20-22 

A3 

DFIELD(7-8) 

AMT  mandays 

27-31 

Al,A4 

DFIELD(9-10) 

FMP  mandays 

33-37 

Al,A4 

DFIELD( 11) 

SAMIS  type 

41-44 

A4 

DFIELD( 12-13) 

Alteration  identification 
nimber 

45-49 

Al,A4 

DFIEU)(14) 

SAMIS  class 

53-56 

A4 

DFIEIXK 15-22) 

Alteration  brief 

58-87 

7A4,A2 

DFIELD(23) 

AMT  dollars 

89-97 

19 

DFIELD(24) 

FMT  dollars 

99-105 

17 

IREC 

Record  nimber 

108-113 

16 

3.2.4  OUTPUT 


The  following  unit  is  used  by  the  program  FIXSAM  for  generating 
hard-copy  output: 

Unit  6 - Error  messages  and  printout  of  replacement 
records 

Section  3.2.7  shows  a sample  of  these  outputs. 

The  following  additional  unit  is  used  by  FIXSAM  to  store  the  revised 
SAMIS  on  disk. 

Unit  9 - The  Revised  Ship  Alterations  Management  Informa- 
tion System  (SAMIS) 

The  format  for  this  file  is  the  same  as  that  of  the  SAMIS  input  file. 
The  format  for  this  file  is  given  in  Section  3. 2. 3. 2. 
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oo  o o o o o o oo  o n oooooooooooooooooooooooooo 


3.2.5  PROGRAM  LISTING 


PROGRAM  FIXSAMI INPUT .OUTPUT • TAPE5 * INPUT. T APE 6 “OUTPUT, T APE8 »T  APE9) 

THE  PURPOSE  OF  THE  PROGRAM  FIXSAM  IS  TO  MAKE  CORRECTIONS 
TO  THE  SAMIS  FILE 

INDIVIDUAL  OATA  ITEMS  ON  A SINGLE  RECORD 
OR  A SERIES  OF  RECOROS  MAY  BE  CMANGEO 
REPLACEMENT  VALUES  ARE  INPUT  FROM  CAROS 
THE  CARO  CONTAINS  THE  OATA  ITEM  OR  ITEMS  TO  BE  CMANGEO 
ANO  ITS  CORRESPONDING  RECORD  NUMBER 
IF  THE  SANE  VALUE  IS  TO  BE  CHANGEO  IN  A SERIES  OF  RECOROS. 

THE  1ST  ANO  LAST  RECORO  NUMBER  OF  TME  SEQUENCE  ARE  INPUT 


UNIT  ASSIGNMENTS 

TAPES  - INPUT  - CAROS 

TAPE6  - OUTPUT  - ERROR  MESSAGES  ANO  PRINTOUT  OF 
ALTEREO  RECOROS 
TAPES  - INPUT  - OLO  SAMIS 
TAPES  - OUTPUT  - UPDATED  SAMIS 


UPOATE  DECK  TERMINATES  MITH  A 9999  CARO 

PROGRAMMER  - JEAN  ST  LAURENT  - OTNSROC  (SOOE  1863) 

WRITTEN  AUGUST  1976 

DIMENSION  UFIELO  (1*. ) . 0FIEL0(26) 

OATA  EN0/6H9999/,  BLANK/1M  t 

INITIAL  CONDITIONS 
OO  S I - 1,16 
UFIELOII)  * 1.0 
5 CONTINUE 

OO  10  I x 1.24 

OFIELD(I)  x a.O 
10  CONTINUE 
IRECP  x o 

RE AO  UPOATE  INFORMATION 

19  RE  AO (9.109)  ( UFIELO ( 1 1 , I*t, 14) , IPEC1,  IREC2 

100  FORMA  T ( 3A  4 , A3,  IX,  2A3,  4X,  A1 ,A4,1X, Al, A4,3X, A4 , Al,  A4,3X,A4, 
1 9X , 16,  3X , 16) 

CHECK  FOR  LAST  INPUT  CARO 
IF(UFIELDd).EQ.ENO)  GO  TO  90 

READ  OLO  SAMIS 

•20  REAOf 8,101)  (OFIELO(I), Ixl,24),  IREC 

101  FORMAT ( 3A4,  A3,  IX,  2A3,  4X,  Al , A6, IX, Al, A4, 3 X, A4 , Al,  A6,3X,A6, 
1 IX,  7A6,  A2,  IX,  19,  IX,  17,  2X , 16) 

••••IF (EOF (8)  .ME.  01  GO  TO  60 

20  READ(8,101,ENOx60I  (OFIELO( I) ,1=1,26) , IREC 
IRECP  = IREC 

CALCULATE  NUMBER  OF  RECOROS  IN  A SERIES 


••••  10 
FIXS  20 
FIXS  30 
FIXS  60 
FIXS  91 
FIXS  60 
FIXS  70 
FIXS  B0 
FIXS  90 
FIXS  100 
FIXS  110 
FIXS  120 
FIXS  129 
FIXS  130 
FIXS  160 
FIXS  198 
FIXS  160 
FIXS  170 
FIXS  160 
FIXS  189 
FIXS  190 
FIXS  200 
FIXS  210 
FIXS  220 
FIXS  230 
FIXS  260 
FIXS  290 
FIXS  260 
FIXS  270 
FIXS  280 
FIXS  291 
FIXS  300 
FIXS  310 
FIXS  320 
FIXS  330 
FIXS  360 
FIXS  369 
FIXS  390 
FIXS  360 
FIXS  370 
FIXS  360 
FIXS  390 
FIXS  600 
FIXS  610 
FIXS  620 
FIXS  630 
FIXS  660 
*••*  690 
FIXS  660 
FIXS  670 
••••  660 
••••  690 
FIXS  659 
FIXS  500 
FIXS  510 
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NREC  - (IREC2  • IREC1)  * 1 
IF <IRECZ<EQ<9 1 NREC  * 1 
IFINREC.LE.OI  CO  TO  45 
IFIIREC  - IRE Cl I 43,25.55 
25  DO  15  J < 1 , NREC 

HRITE (6,1021  (OF I EL 0(1), Is 1,241,  IREC 
132  FORMAT (1X,3A4,A3,1X,2A3,  4X,  A1,A4,1X,A1, A4.3X, A4,  Al,  A4.3X.A4, 
1 IX,  7A4,  A2 , IX,  19,  IX.  17 . 2X , 16,  4K,  1NO  I 
DO  30  I * 1,14 

IF (UFIELO ( II  .EQ.  BLANK)  GO  TO  30 
DFIELO(I)  a UFIELOI I ) 

30  CONTINUE 

HRITE 16,103)  (DFIEL0(II,I*1,24I,  IREC 

103  FORMA T(1X,3A4,A3,1X,2A3,  4X,  A1,A4,1X,A1, A4,3X, A6 , Al,  A4,3X,A4, 
1 IX,  7A4,  A2 , IX,  19,  IX,  17,  2X , 16,  2X,  INI  I 

HRITE  (9,1  011  (0FIELD(I),I*l,24l.  IREC 
IF ( J. EQ.NREC)  GO  TO  15 
C***** RE AD (8,1011  ( OF IE LO (I), 1*1,24),  IREC 
C****»IF(EOF(8l  .NE.  0)  GO  TO  60 

REAO(8,101.ENO=60)  ( DFIELO( II ,1*1 ,241 , IREC 
IREC?  * IREC 
35  CONTINUE 
GO  TO  15 
C 

C COPT  OLO  SAMIS  TO  NEH  FILE  UNCHANGEO 

40  HRITE (9, 101)  (OFIELO ( II . 1*1 .241 , IREC 
GO  TO  23 
C 

C ERROR  PRINTOUTS 

45  HRITE (6,1041  IREC1,  IREC 2 

104  FORMAT (IN  , 18H  • • • RECORD  NO.  , 16,  1SN  OR  RECORO  NO.  , 16, 

1 9H  IN  ERROR  I 

HRITE (9,1011  (OFIELO(I) ,1*1,241 , IREC 
GO  TO  15 
C 

C - LAST  CARO  OF  UPDATE  OECK  - REMAINING  RECOROS  ARE  COPIEO 
C**50  READ (8, 1011  (OFIELO ( I I , 1=1 .241 , IREC 
C*»**»IF(EOF(8l  .NE.  9)  GO  TO  69 

50  READ(8,101.ENO*60)  (OFIELO! I I ,1*1 ,241 , IREC 
IRECP  * IREC 

HRITE (9,1011  (OFIELO(II,I*1,24),  IREC 
GO  TO  50 
C 

C ERROR  PATHS 

55  HRITE (6,105)  IREC1 

105  FORMATION  RECORD  , 16,  12H  NOT  IN  FILE  I 
GO  TO  50 

60  HRITE (6,1061  IRECP 

106  FORHATOH  , 22HLAST  RECORO  NUMBER  IS  , 16) 

STOP 
END 


FIXS  520 
FIXS  530 
FIXS  540 
FIXS  550 
FIXS  560 
FIXS  570 
FIXS  500 
FIXS  590 
FIXS  600 
FIXS  610 
FIXS  620 
FIXS  630 
FIXS  640 
FIXS  650 
FIXS  660 
FIXS  670 
FIXS  680 
••••  690 
••»«  700 
710 
FIXS  715 
FIXS  720 
FIXS  730 
FIXS  740 
FIXS  750 
FIXS  760 
FIXS  770 
FIXS  780 
FIXS  790 
FIXS  800 
FIXS  810 
FIXS  820 
FIXS  830 
FIXS  840 
FIXS  850 
FIXS  860 
••••  870 
••••  880 
••••  890 
FIXS  895 
FIXS  900 
FIXS  910 
FIXS  920 
FIXS  930 
FIXS  940 
FIXS  950 
FIXS  955 
FIXS  960 
FIXS  970 
FIXS  980 
FIXS  970 


55 


3.2.6  GLOSSARY 


Main  Program 

BLANK 

DFIEID(24) 

END 

I 

IREC 

IRECP 

IREC1 

IREC2 

J 

NREC 

UFIELD(14) 


LOCAL  VARIABLES 


One-character  blank  space. 

Array  of  data  for  one  SAMIS  record. 

Variable  containing  the  characters  "9999". 

DO  loop  index. 

Record  nunber  read  fran  SAMIS  file. 

Record  nunber  c ' present  record. 

Record  nunber  input  with  replacement  data,  indicating 
record  to  be  replaced. 

Additional  record  nunber,  input  with  replacement  data, 
indicating  last  record  of  a series  to  be  altered. 

DO  loop  index. 

Nunber  of  sequential  records  to  be  updated. 

Array  of  update  data. 
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3.2.7  SAMPLE  RUN 


Program  MATCH  noted  that  there  were  availabilities  on  the  Ship 
Alterations  Management  Information  System  (SAMIS)  file  with  missing 
sequence  numbers.  The  card  inputs  (unit  5)  to  program  FIXSAM  request 
that  the  sequence  nunbers  (data  item  3)  be  replaced  with  the  correct 
values.  For  example,  the  sequence  number  is  to  be  changed  from  "0" 
to  "11"  on  record  numbers  40  through  41. 

The  Replacement  Record  Sunmary  (unit  6)  shows  a pair  of  records  for 
each  replacement.  The  deleted  record  is  denoted  by  the  letter  "D" 
and  the  record  that  was  inserted  is  identified  by  the  letter  "I". 
The  summary  page  is  an  aid  to  ensure  the  accuracy  of  all  changes  and 
should  be  reviewed  before  the  corrected  SAMIS  file  is  copied.  The 
statement  "LAST  RECORD  is  917"  tells  the  user  the  number  of  records 
written,  if  for  any  reason,  suich  as  computer  failure,  the  entire  file  is 
not  read,  the  program  FIXSAM  must  be  rerun. 

A sample  of  the  SAMIS  file  (unit  9)  is  given.  It  shows  that  the 
value  of  "11"  has  replaced  the  "0"  on  records  40  and  41. 
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SOHHARY  of  replaceheht  records 


.A.r*'AfU<VJi£v6t£<£kAIAlAlAlAtAlAlA«£«£«O«£t£v£'0«£«£«£>£'£v£t£«£kCt£«£<£)0ftft-ftftftftftft^'ftftft 
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NUCLEOMIC  SLR  HTR  L VI 


3.3  PROGRAM  ALTGEN 


3.3.1  DESCRIPTION 

In  ALTGEN,  DMAF  and  SAMIS  are  compared,  and  for  each  availability, 
one  of  the  following  situations  is  identified: 

1)  Availability  only  in  DMAF 

2)  Availability  only  in  SAMIS 

3)  SAMIS  and  DMAF  match 

In  the  first  situation,  the  availability  is  skipped  and  a message  is 
written  to  that  effect  on  unit  1.  Unsequenced  availabilities  are  skipped. 

In  the  second  situation,  the  percent  alterations  on  DMAF  is  set  to 
zero,  and  a message  is  written  to  that  effect  on  unit  13.  No  matrix  is 
generated  unless  there  are  nuclear  alterations  in  this  availability. 
Alterations  with  work  types  UNSW,  UNOW,  UNOS,  and  MAP  are  not  processed. 
If  no  matrix  is  generated,  the  alteration  matrix  number  is  set  to  1500. 

In  the  third  situation,  if  the  SWBS  number  is  illegal  (no  depot 
maintenance  planning  module  corresponding  to  that  SWBS),  a message  is 
written  to  that  effect  on  unit  2 and  the  alteration  is  bypassed.  If  the 
SAMIS  manday  total  for  an  availability  is  zero,  the  availability  is 
handled  as  in  situation  2.  The  appropriate  mandays  are  determined  as  in 
program  MATCH. 

For  major  alterations,  a matrix  is  generated  by  accumulating  the 
product  of  the  alteration  scope  vectors  and  the  SAMIS  mandays  in  the 
row  of  the  matrix  corresponding  to  the  SWBS  number.  The  repair  shop 
vectors  are  used  for  minor  alterations  and  for  major  alterations  with  no 
alteration  vectors. 

If  the  total  SAMIS  mandays  are  zero,  including  possible  substitution 
of  FMP  by  AWT,  the  availability  is  handled  as  in  situation  2. 

Matrix  numbers  are  assigned  sequentially  from  one  to  a maximum 
of  1499.  This  number  is  entered  into  the  DMAF  file  and  the  matrix  is 
written  to  a random  access  file  whose  key  is  the  matrix  number.  The 
matrix  is  written  column-by-col  inn  and  includes  row  and  column  totals. 

Figure  3.3-1  presents  a hierarchical  diagram  of  the  program  ALTGEN. 


ALTGEN 


Figure  3.3-1  - ALTCEN  Hierarchical  Diagram 


Main  Program 

The  main  program  of  ALTGEN  reads  the  DMAF  file  from  unit  3 and  the 
SAMIS  file  from  unit  4,  edits  then  for  errors,  and  compares  them  for 
availability  matches.  Alteration  matrices  of  shops  by  one  digit  planning 
module  groupings  are  generated  utilizing  alteration  data  from  either  the 
Repair  Vector  File  found  on  unit  14  or  the  Major  Alterations  File  from 
unit  11.  Each  matrix  is  assigned  a sequential  matrix  number  for  the  DMAF 
availability  to  which  it  applies.  Nuclear  alterations  are  read  from  unit 
12. 

ALTGEN  utilizes  the  following  subroutines*  AVDIF,  MANDAY,  NUCIN, 
NUCMAT,  REFVEC,  KVIN,  ALTVEC,  MAT,  MATOT,  and  ZERO.  Run  instructions 
and  identification  are  input  by  cards,  using  unit  5.  Output  is  generated 
using  unit  6 for  program  flow  and  error  messages;  unit  1 for  availabili- 
ties appearing  only  in  DMAF;  unit  13  for  availabilities  appearing  only 
in  SAMIS;  unit  2 for  errors  in  SWBS  numbers;  unit  10  for  the  alteration 
matrices;  and  unit  3 for  the  new  DMAF  with  alteration  matrix  nunbers 
(DMAF-2) . 

Subroutine  AVDIF 

This  routine  reports  availabilities  from  SAMIS  which  do  not  appear 
on  the  DMAF  file,  and  vice  versa.  The  type,  hull,  and  sequence  number 
uniquely  define  an  availability.  These  parameters  from  the  SAMIS  and  DMAF 
files  are  compared  in  the  main  program.  AVDIF  is  entered  if  a match  does 
not  exist.  If  AVDIF  determines  that  a match  does  exist,  an  error  message 
is  written  to  the  output  file. 

A message  is  written  on  the  "availability  mismatch"  file  indicating 
whether  the  availability  appears  only  in  DMAF  or  only  in  SAMIS.  Flags 
denoting  the  condition  are  set  for  use  in  other  modules  of  the  program. 
Punched  cards  may  be  obtained  to  upxlate  either  file. 

Subroutine  MANDAY 

This  subroutine  selects  the  type  of  mandays  to  be  used  in  the  program. 
All  carrier  ship  types  use  Fleet  Modernization  Program  (FMP)  estimates  for 
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the  execution  and  budget  year.  All  other  ship  types  use  Amalgamated 
Military/  Technical  Improvement  Plan  (AMT)  manday  values. 

FMP  estimates  are  replaced  by  AMT  estimates  according  to  the  input 
data  cards. 

Subroutine  NUCIN 

This  routine  reads  data  on  nuclear  alterations.  If  the  current 
ship  type  is  non-nuclear  a return  is  generated;  otherwise,  a nuclear 
alteration  record  is  read.  The  routine  then  determines  whether  nuclear 
alterations  data  are  present  for  the  particular  availability.  The  flag 
NUC  is  set  to  "1"  if  nuclear  data  are  included;  otherwise,  it  is  set  to 
"0". 

Subroutine  REFVEC 

This  routine  selects  the  proper  repair  vectors  set  for  minor  altera- 
tions or  unscoped  major  alterations.  The  repair  vector  file  header 
records  are  scanned  to  determine  which  set  covers  the  ship  type  under 
consideration.  The  proper  set  ntmber  is  stored  in  IKV.  If  the  current 
ship  type  is  not  covered  by  any  repair  vector  set,  IKV  is  set  to  zero  and 
an  error  message  is  written  to  that  effect  on  unit  6. 

Subroutine  KVIN 

This  routine  reads  and  stores  the  repair  shop  vectors.  Currently, 
there  are  three  sets  of  vectors,  one  each  for  submarines,  carriers,  and 
other  ship  types.  The  routine  reads  these  sets  and  tests  to  see  whether 
other  vector  sets  have  been  added  to  the  file.  If  more  than  three  sets 
exist,  a message  is  written  to  that  effect.  Dimensions  must  then  be 
adjusted  manually  to  allow  the  extra  sets  to  be  read. 
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Subroutine  ALTVEC 


This  routine  selects  the  proper  alteration  vector  from  the  Major 
Alterations  Pile  on  the  basis  of  ship  type,  class,  and  alteration  nunber. 
The  program  determines  whether  data  actually  exist  for  the  SAMIS  alterat- 
ion being  processed  and  sets  the  flag  "NCALT"  to  zero  if  the  data  exist; 
otherwise,  "NQALT"  is  set  to  one. 

Subroutine  MAT 

This  routine  makes  a matrix  of  shops  by  one-digit  planning  module 
groupings,  if  no  alterations  data  exist  or  if  the  alteration  is  small, 
the  entries  are  accumulated  in  the  array  "X"  by  multiplying  the  proper 
repair  vector  by  the  SAMIS  mandays.  Scoped  major  alterations  are  entered 
into  the  matrix  by  multiplying  the  alteration  vector  by  the  SAMIS  mandays. 

Subroutine  MATOT 

This  routine  normalizes  the  matrix  formed  in  subroutine  MAT  and 
assigns  a number  to  the  matrix.  Shop  and  one-digit  planning  module 
totals  are  computed  and  the  matrix  is  written  to  a random  access  file 
whose  key  is  the  matrix  nunber.  The  matrix  number  is  also  written  on  the 
DMAF  file. 

Subroutine  ZERO 


This  routine  sets  the  alteration  matrix  entries  to  zero. 


3.3.2  RUN  SET-UP 


The  following  set-up  is  used  to  run  the  ALTGEN  program  on  the  IBM 
360/370  computer : 


//NVSALTG  JOS  (XXXXXXXXXX,XXXXX),USER,CLASS=I.TIMF=  « , 3 5 ) . MSGLEVEL  *1 
//JOBLIB  00  DSN=NVS01.OEPOT.LIB«DISP=SNR 
//  EXEC  PGX*ALTG 
//GO. FT05F  0 01  00  * 


ALTGEN  card  Inputs  (unit  S) 


//GO. 

//GO. 

//GO. 

//GO. 

//GO. 

//GO. 

//GO. 

//GO. 

//UN 

//GO. 

//GO. 

//GO. 

//GO. 


FT06F0C1  00 
FT01F001  00 
FT02F001  00 
FT03F  0 01  00 
FT  0*»F  0 01  00 
FT08F001  00 
FT09F001  00 
FT10F001  00 
IT=STORAGE, 
FT11F001  00 
FT12FQC1  00 
FT13F0  01  00 
FT14F001  00 


STS0UT  = A (ERROR  MESSAGES! 

SYSOUT*A  (AVAILS.  ONLY  IN  OMAFI 
SYSOUT=A  (ILLEGAL  SWBSI 
OS NsNVS01. OMAFI. OATA.OISP-SHR 
OSNsNVSOl.SAMIS.OATA.OIS^-SHR 
OSNsNVSOl.OMAFZ.DATA.OISOiSMR 
OSN=NVS01.0MPM.OATA,DISP=SHR 
OSN*NVS01.MATRICES.OATA,DTSP*(OLO,KEEPI, 
VOLUME MPRIVATE.RET A IN,SER= 999056! 
OSNrNVS01.BIGALTS.OAIA,OISP*SHR 
OSN=NVS01.NUCALTS.  OATA,OISP=SHR 
S YSOU T*A  (AVAILS.  ONLY  IN  SAMIS! 
OSN=NVSO!.OSM.OATA,OlSPrSHR 


3.3.3  INPUT 


Card  inputs  are  made  using  unit  5.  The  format  for  these  cards  is 
given  in  Section  3. 3. 3.1. 

Unit  5 - Card  inputs  which  (1)  identify  the  execution 
year,  (2)  set  the  lower  boundary  of  mandays  for 
large  alterations,  (3)  set  the  print  option  flag, 

(4)  give  the  nunber  of  availabilities  in  which 
AMT  replaces  FMP  mandays,  (5)  identify  individual 
availabilities  in  which  replacement  occurs. 

The  following  additional  units  are  used  to  input  information  from 
disk  files: 

Unit  3 - Depot  Maintenance  Assignment  File,  Version  1 
(DMAF-1) 

Unit  4 - Ship  Alterations  Management  Information  System 
File  (SAMIS) 

Unit  9 - SWBS—  to-DMPM  Conversion 

Unit  11  - Major  Alterations  File 

Unit  12  - Nuclear  Alteration  Data 

Unit  14  - Repair  Shop  Vectors 

The  formats  for  these  units  are  given  in  Sections  3. 3. 3. 2 through 
3.3.3. 7. 
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3. 3. 3.1  Unit  5 - Card  Input 


Card  Type  1 


Variable  Name 

Description 

Field 

Format 

IEXYR 

Execution  year 

1-2 

12 

LARGE 

Lower  boundary  for  large 
alterations 

3-9 

17 

ITRACE 

Print  option  flag 

10-11 

12 

MSWBF 

Flag  for  printing  illegal 
SMBS  report 

12-13 

12 

Card  Type  2 

Variable  Name 

Description 

Field 

Format 

NREP 

Nunber  of  availabilities 
in  which  AMT  replaces 

FMP  MANDAYS 

1-2 

12 

Card  Type  3 

Variable  Name 

REP 

Description 

Individual  availabilities 
in  which  replacement 
occurs: 

Field 

Format 

Type 

1-4 

A4 

Hull  number 

5-8 

14 

Sequence  nunber 

9-12 

14 

Fiscal  year 

13-16 

14 

Repeat  this  card  NREP  times.  If  NREP  = 0,  Card  Type  3 is  omitted. 
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3. 3. 3. 2 Unit  3 - Depot  Maintenance  Assignment  File,  Version  1 (DMAF-1) 

DMAF-1  contains  information  describing  all  depot  maintenance  ship- 
availabilities  scheduled  for  yard-work  at  both  Navy  and  privately  owned 
shipyards  during  the  selected  five- fiscal-year  period.  Depot  maintenance 
availabilities  are  those  availabilities  with  a type  of  work  other  than 
Fitting  Out  (PO),  Post  Shakedown  (PS),  or  New  Construction  (NC). 

Each  semi-annual  period  of  a fiscal  year  within  which  an  availability 
falls  corresponds  to  a record  of  DMAF-1.  Note  that  there  may  be  more 
than  one  DMAF  record  for  any  particular  availability. 

The  DMAF-1  file  is  sorted  in  ascending  order  by  the  following  para- 
meters: 

Ship  type 
Hull  nunber 

Availability  start  date  (year,  month,  day) 

Fiscal  year  (this  record) 

Period  (this  record) 
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3. 3. 3. 3 Unit  4 - Ship  Alterations  Management  Information  System  File 

(SAMIS) 

SAMIS  contains  information  describing  the  alterations  scheduled  for 
yard-work  at  both  Navy  and  privately  owned  shipyards  for  a seven-fiscal- 
year  period. 

Each  record  corresponds  to  a single  alteration,  and  contains  a brief 
description  of  the  alteration,  a unique  alteration  nunber,  and  the  ship 
class  to  which  the  alteration  nunber  applies.  If  a particular  alteration 
is  scheduled  for  ships  not  belonging  to  the  same  class,  different  nunbers 
are  assigned  to  the  alteration  for  each  class. 

The  SAMIS  file  is  sorted  in  ascending  order  by  the  following  para- 
meters: 

Ship  type 
Hull  nunber 
Sequence  nunber 
Fiscal  year 

Tfte  format  of  each  record  in  the  SAMIS  file  is  as  follows: 


l 


Variable  Name 

Description 

Field 

Format 

SAM(l) 

Ship  type 

1-4 

A4 

SAM( 2) 

Hull  nunber 

5-8 

14 

SAM(3) 

Sequence  nunber 

9-12 

14 

SAM( 4 ) 

Fiscal  year 

13-15 

13 

SAM(  5) 

Type  vrork 

17-19 

A3 

SAM(6) 

SWBS  nunber 

20-22 

13 

SAM(7) 

AMT  mandays 

27-31 

15 

SAM(8) 

FMP  mandays 

33-37 

15 

SAM(9) 

SAMIS  type 

41-44 

A4 

SAM( 10-11) 

Alteration  identifica- 
tion nunber 

45-49 

A4,A1 

SAM(12) 

SAMIS  class 

53-56 

A4 

SAM( 13-20) 

Alteration  brief 

58-87 

7A4,A2 

SAM(21) 

AKT  fiscal  expenditures 

89-97 

19 

SAM (22) 

FMP  fiscal  expenditures 

99-105 

17 
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3. 3. 3. 4 Unit  9 - SVBS-to-DMPM  Transformation 

This  file  sets 

up  a mapping  between  Ship  Work 

Breakdown 

Structure 

(SWBS)  numbers  and 

Depot  Maintenance  Planning  Module  (DMPM) 

numbers. 

Variable  Name 

Description 

Field 

Format 

KDMPM(I) 

Depot  maintenance  planning 
module  number 

1-4 

14 

ISWB(J) 

Lower  boundary  for  the  range 
of  SWBS  numbers  corresponding 
to  KDMPM(I) 

7-9 

13 

JSWB(J) 

Upper  boundary  for  the  range 
of  SWBS  numbers  corresponding 

11-13 

13 

to  KDMPM(I) 

3. 3. 3. 5 Unit  11  - Major  Alterations  File  (MAF) 

Variable  Name 

Description 

Field 

Format 

T5fPE(J) 

Ship  type 

1-4 

A4 

CLASS(J) 

Ship  class 

5-8 

14 

ALNO  (J,2) 

Alteration  identification 
number 

12-16 

A4,A1 

VECTOR(I^J) 

Alteration  shop  vector 

20-79  10(F5.4,1X) 

3. 3. 3. 6 Unit  12  - Nuclear  Alterations  Data 

No  data  have  been  compiled  for  this  file. 

Variable  Name 

Description 

Field 

Format 

KNUC(l) 

Ship  type 

1-4 

A4 

KNUC(2) 

Hull  number 

5-8 

14 

KNUC(3) 

Sequence  number 

9-12 

14 

KNUC(4) 

Fiscal  year 

13-16 

14 

KNUC(5) 

Mandays 

17-22 

16 
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3. 3. 3. 7 Unit  14  - Repair  Vectors 
Initial  Record. 


Variable  Name 

Description 

Field 

Format 

MUD 

Dummy  read  variable 

10 

11 

Header  Record. 

Variable  Name 

Description 

Field 

Format 

NT 

Number  of  ship 
type  ranges 

10 

11 

KTYP(I,J,K) 

Ship  types  covered 
by  a set  of  repair 
vectors 

12-83 

6(A4,1X,A4,3X) 

Shop  Vector  Record. 

Following  each  header  record 

are  79  pairs  of  DMPM-Shop 

Vector  Records. 

Variable  Name 

Description 

Field 

Format 

RVEC(I,J,K) 

Repair  shop  vector 

11-80 

10F7.4 

3.3.4  OUTPUT 


1 


The  following  units  are  used  by  ALTGEN  for  generating  hard-copy 
output: 

Unit  1 - Availabilities  only  in  DMAF 
Unit  2 - Illegal  SWBS 

Unit  6 - Error  messages  and  intermediate  output 
Unit  13  - Availabilities  only  in  SAMIS 

Section  3.3.7  gives  samples  of  these  outputs. 

ALTGEN  uses  the  following  additional  units  to  store  information  on 

disk  for  use  by  subsequent  programs: 

Unit  8 - Depot  Maintenance  Assignment  File,  Version  2 
(DMAF-2) 

Unit  10  - Alteration  matrices  (random  access) 


3. 3. 4.1  Unit  8 - Depot  Maintenance  Assignment  File,  Version  2 (DMAF-2) 

DMAF-2  has  the  same  format  as  DMAF-1  and,  additionally,  contains 
data  in  the  alteration  matrix  nunber  field. 

Unit  10  is  described  in  Section  3. 1.3. 2. 


3. 3. 4. 2 Unit  10  - Alteration  Matrices 

Hie  alteration  matrices  are  stored  colunn- by-col unn  in  a 10-row  by 
21-colunn  array  on  a randan  access  device,  and  as  such,  have  no  FORTRAN 
format.  The  random  access  key  corresponds  to  the  alteration  matrix 
nunber  on  DMAF-2. 

Samples  of  the  output  on  Units  8 and  10  are  given  in  Section  3.3.7. 
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ooooooooooooooooooooonoooooooooooooooooooooooooooo 


3.3.5  PROGRAM  LISTING 


NIKE  LAN* TRICE  1 S 6 3 NAT  1976  ALTG 

PROGRAM  ALTGENI INPUT (OUTPUT  , TAPES* INPUT  *T  APE6 =OUTPUT«T  APE  1=128,  ALTG 

• T APE2  *128 , TAPE 3-  12A • T APE4*128,T AP £8=128, TAPE9=128*TAPE 10*128,  ALTG 

. TAPE1 1*12 8,T APE 12*128, TAPE 13*128,  TAPE 14*1 28)  ALTG 

ALTG 

THIS  PROGRAN  HAKES  ALT  HATRICES  OF  SHOPS  9T  ONE-DIGIT  PLANNING  ALTG 
MODULE  GROUPINGS.  A SEQUENTIAL  MATRIX  NUMBER  IS  ASSIGNED  TO  EACH  ALTG 


DMAF  AVAILABILITY  FOR  HHICH  THE  MATRIX  APPLIES. 

NUCLEAR  ALT  DATA  IS  INPUT  SEPARATELY  TO  THE  PROGRAN.  LARGE  ALTS 
ARE  REPRESENTED  BY  ALT  SCOPES, AND  SMALL  ALTS  BY  REPAIR  DATA. 

INPUT  FILES 


UNIT  3 OMAF 

UNIT  % SAMIS 

UNIT  5 CARD  INPUT  • 

UNIT  9 SNBS-TO-DMPM  CONVERSION 
UNIT  11  ALT  SCOPES 
UNIT  12  NUCLEAR  ALT  DATA 
UNIT  14  REPAIR  VECTORS 

OUTPUT  FILES 

UNIT  1 OMAF  ONLY  AVAILABILITIES 
UNIT  2 ILLEGAL  SMBS 

UNIT  6 PROGRAM  FLOW  ANO  ERROR  MESSAGES 
UNIT  8 NEM  OMAF  NITH  MATRIX  NUMBER 
UNIT  III  ALT  MATRICES 
UNIT  13  SAMIS  ONLY  AV A IL I BILI TI ES 

• CA  FO  I NPUT 


ALTG  50 
ALTG  60 
ALTG  70 
ALTG  80 
ALTG  90 
ALTG  100 
ALTG  110 
ALTG  120 
ALTG  130 
ALTG  140 
ALTG  150 
ALTG  160 
ALTG  170 
ALTG  180 
ALTG  190 
ALTG  200 
ALTG  210 
ALTG  220 
ALTG  230 
ALTG  240 
ALTG  2S0 
ALTG  260 
ALTG  270 
ALTG  280 
ALTG  290 
ALTG  300 


CARO 

VARIABLE 

DEFINITION 

FORMAT 

ALTG 

310 

ALTG 

320 

1 

IEXYR 

EXECUTION  YEAR 

12 

ALTG 

330 

LARGE 

LONER  BOUND  FOR  LARGE  A. TS 

17 

ALTG 

340 

ITRACE 

PRINT  FLAG  OPTION 

12 

ALTG 

350 

MSMBF 

PRINT  OPTION  FLAG  FOR  ILLEGAL  SMBS 

12 

ALTG 

360 

2 

NREP 

NO.  OF  AVAILABILITIES  MAE  RE  AMT 

12 

ALTG 

37  0 

REPLACES  FMP  MANDATS 

ALTG 

380 

3 • 

REP 

TYPE, HULL, SEQUENCE  NJNBER.ANO  FISCAL 

A4.3I4ALTG 

390 

YEAR  OF  THE  MODIFIED  AVAILABILITY 

ALTG 

400 

ALTG 

410 

REPEAT 

CARO  3 NREP 

TIMES 

ALTG 

420 

IF  NRFP  0*  THE  SUCCEEDING  CAROS  ARE  ND T USED 

IF  PROGRAM  FLOM  INFORMATION  IS  OESIREO,  SET  ITRACE  = 1*  OTHERWISE 
LEAVE  IT  BLANK 

DIMENSION  ISK IPI 81  * KOHPHI 79)  , IS  MB  1 91  « JSM8 1 91  ,MPM(1000I 
S * I S AM  1 4 > 

COMMON  /0NEVSAHC22),IEXYR,NO,NRFP,REPt4,130l  , MMPH , X 1 13 , 21 » ,LMPN 
COMMON  /T MO/NOALT ,RVEC(20,79,3)«KTYP<2«6, 3),AVECI20) 

. ,NTTP(3I,NVEC,IRV, ITRACE 


ALTG  430 
ALTG  440 
ALTG  45 0 
ALTG  460 
ALTG  470 
ALTG  480 
ALTG  490 
ALTG  500 
ALTG  510 
ALTG  520 


COMMON  /THREE/  OHAF (22)  , IENDSH, IE NOME  , I03NL Y , IS ONLY  ,HAN3 

ALT G 530 

COMMON/FOUR/  OMFTOT »KNUC (5) ,MOTOT ,NUC 

ALTG  540 

COMMON  /FIVE/  E0F11,E0F12,KFIRST 

ALTG  550 

INTEGER  OHAF, SOM 

ALTG  560 

OATA  ISLANK/1H  /.ISKIP/  2HOM.2HNC ,2HF0,2NPS, 3HRA N, JHMAP, 

ALTG  5Z0 

. 2HOS.2HSN/ 

ALTG  500 

OATA  LTAF / JHT AF/ .LSS/2HSS/ 

ALTG  590 

CALL  RVIN 

ALTG  600 

IENOSM*0 

ALTG  610 

IENOMF  *0 

ALTO  620 

LOOP*0 

ALTG  630 

IOONLVxO 

ALTG  640 

ISONL Y*0 

ALTG  653 

NUC*1 

ALTG  660 

MALT*0 

ALTG  6/0 

HANO* 0 

ALTG  600 

EOF11=0 

ALTG  690 

EOF12*0 

ALTG  700 

KFIRST*0 

ALTG  710 

CALL  ZERO 

ALTG  720 

REAO(5,500>  IEXYR.LARGE.ITRACE.MSMBF 

ALTG  730 

500 

FORMAT (12,17,212) 

ALTG  740 

00  09  IH* 1 » 10  00 

ALTG  750 

09 

MPMI I Ml *0 

ALTG  760 

c 

ALTG  770 

c 

READ  SMBS  TO  OHPN  TRANSFORMATION 

ALTG  700 

c 

ALTG  790 

00  SO  IG*1,79 

ALTG  000 

READ  ( 9<  SO  I KONPN(IG),  (ISMB  ( JG) , JSMB  ( JG>  , JG*  1 , 9) 

ALTG  010 

so 

FORMAT (16, 2X, IS  1 13 >1X1) 

ALTG  020 

00  06  JG* 1,9 

ALTG  030 

IM*ISMB(JG> 

ALTG  060 

IFIIM.EO. 0)  GO  TO  SO 

ALTG  050 

JM*JSMB(JG> 

ALTG  06 0 

00  02  KM*  IN,  JM 

ALTG  070 

c 

ALTG  000 

c 

HAP  SMBS  ONTO  OMPM 

ALTG  090 

c 

ALTG  900 

02 

MPNIKM)*IG 

ALTG  910 

04 

CONTINUE 

ALTG  920 

SO 

CONTINUE 

ALTG  930 

c 

ALTG  940 

c 

READ  OATA  ON  AVAILABILITIES  MHERE  ANT  RE*LACES  F HP  ESTIMATES 

ALTG  950 

c 

ALTG  960 

REAO(5,60  ) NREP 

ALTG  970 

60 

FORMAT (12  ) 

ALTG  900 

IF(NREP.EQ.O)  GO  TO  600 

ALTG  990 

00  65  IR* 1»NREP 

ALTG1000 

RE AO (5,62  I (REP(IN,  IR  ),IN*1,4) 

ALT  G1010 

62 

FORMA T(A4 ,314) 

ALTG1020 

65 

CONTINUE 

ALTG1030 

C 

ALTG1040 

C 

MRITE  FILE  HEAOERS 

ALTG1050 

C 

ALTG1060 

600 

MRITE  ( 1,601) 

ALTG1070 

601 

FORMAT! * AVAILABILITIES  ONLY  IN  OHAF • »// 

ALTG10S0 

t 4X , 'TYPE  HULL  SEQ. NO , */4X , •- */) 

ALTG1090 

MRITE  ( 2,602) 

ALTG1100 

602 

FORMAT ( • ILLEGAL  SMBS*,// 

AL  TGI  110 

% 6X , 'SMBS  TYPE  HULL  SEQ. NO.  ALT. NO. •/ 

ALTG1120 

o o o o o ^^>oo^crooo  -r  o r\>  o o o o ooooo  o o 


$ <»x , ■ — — •/» 

WRITE (13* 6131 

613  FORMAT  I • AVAILABILITIES  ONLY  IN  SAMIS*,// 

t AX, 'TYPE  MULL  SEQ. NO.  VAX , * */» 

MOTOT=0 


RE  AO  OMAF  AVAILABILITY 
REAO(3,300,ENO=700I  OMAF 

300  FORMA HAA.A1, AA , 21 A, A1 , A3, 2 16, A3, 2A1 , 12, II , 2 1 7, 21 A , 13 . 12 ,5X , 1 3 , 
1 OX, 161 

3 IFIITRACE.EQ.lt  HRITEC6,90t  OMAF ( 31 , 0MAFI4I  , OMAF ( 51 

90  FORMAT! * READING  ON AF • , IX, AA , 21 At 
IFI0MAFI3 I .EQ.LSSI  ITRACE=1 

IF !OMAF (3  t .NE.LSSI  ITRAC£=0 

FIRST  CARO  OF  AM  AVAILABILITY? 

IF(OMAF(6l  .EQ.I3LANKI  GO  TO  2 
OMAF (16I=MAN0 

IF (OMAF ! 3 ) .ME .LSSt  GO  TO  1 
WRITE  (0 , 3 0 01  OMAF 
GO  TO  1 

SKIPPABLE  AVAILABILITY? 

OO  A 1=1,8 

IFIOMAFdl.NE.ISKIPlIIIGO  TO  A 
17  IF (OMAF (3I.NE.LSSIG0  TO  1 
17  OMAF  ( 181  = 1500 
OMAF  ( 181  =1530 
WRITE  (A,  3 0 II  OMAF 
RE A0(3,300,  EM 0 = 7031  OMAF 
IF(0MAF(6I .NE.I3LANK)  GO  TO  17 
BACKSPACE  3 
GO  TO  1 
CONTINUE 

IF (I T RACE . EQ. 1)  WRITE(6,91I 

91  FORMAT ( * GOOO  3MAF*I 
IF(IEN0SH.EQ.1I  GO  TO  12 
IF  (L  OOP . E Q .0 1 GO  TO  9 

GO  TO  10 

RESET  PREVIOUS  SAMIS  AVAILABILITY  FLAGS 

00  7 1=1, A 
ISAM!  It  =S  AM!  1 1 

READ  SAMIS  ALT 
RE AO (4, 400, EN 0=8031  SAM 

0 FORMAT  (AA  ,2IA  , I 3 , IX  , A3 , 13,  A X , 15 ,1 X , 15 , 3X,  AA  , A A , A 1 ,3X,  A A, 

. IX, 7AA, 12,113, ISt 

IF(SAW(1I  .EQ.LTAFI  GO  TO  BOO 
IFIITRACE.EQ.lt  WRITEI6.92I  ISAM  1 1 Bl  , IB=1 , 31 

92  FORMAT!'  READING  SAM  IS • • IX , A A • I A, 131 

TEST  FOR  PHONY  SAMIS 
IFISAMI3I .EQ. 31  GO  TO  9 
ERROR  CHECK  SMBS  NUMBER 


AL  TGI  13  0 
ALTG1140 
AL  TGI  15  0 
ALTG1163 
AL  TGI 170 
ALTG1180 
ALTG1190 
ALTG1200 
ALTG1210 
ALT  Cl  22  0 
ALTG1230 
ALTG12A0 
ALTG1250 
ALTG1260 
AL  TGI 27 0 
ALT  G1 2ft  3 
ALT  G1 290 
ALTG1303 
ALTG1310 
AL  T Gl  320 
ALTG1330 
ALT  El  34 0 
AL  T Gl 35  0 
AL  TGI  36  0 
AL  T Gl 37  0 
AL  T Gl 38  3 
ALTG1  390 
AL  T Gl 40  0 
AL  T Gl  41  0 
AL  TGI  420 
ALT  G143 0 
ALTG1440 
ALT  Gl 450 
AL  T Gl  46  0 
ALTG1470 
ALT  Gl  48  0 
ALT  G1490 
ALTG1500 
ALTG1510 
AL  T Gl 52  0 
ALT  G1530 
AL  T Gl 540 
ALTG1550 
AL  T Gl 560 
ALTG1573 
ALT  Gl  580 
ALT  G1593 
AL  T Gl 60  0 
ALTG1613 
ALT  Gl  62  C 
ALTG1630 
AL  T Gl  64  0 
AL  TGI  65  0 
A L TGI  660 
ALTG1670 
AL  TGI 68 0 
AL  TG1690 
AL  TGI  70  0 
ALT  Gl 710 
ALTG1720 
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c 

8 IF  ISAM  (6  I .EQ.  31  GO  TO  11 

IFIMPMISAM!6II.'IE.3I  GO  TO  1J 
11  IFIMSHBF.EO.OI  GO  TO  9 

HRITE!2,15ISAN|5I , SAM  111 ,SAM  121 .S AM  1 3 I , SA II 10  I , SAMI  11 1 
IS  FORMAT! IX,  16,  5X,  A9 , 19 ,5 X , 19 , 5X,  A9 , All 

GO  TO  9 
C 

C FIRST  LOOP  THROUGH  PROGRAM  ? 

C 

13  IFILOOP.EQ.OI  GO  TO  10 

C 

C SAME  SAMIS  AVAILABILITY  AS  PREVIOUS  ONE? 

C 

IF(ITRACE.Ea.l>  HRI TE ! 6 , 99 1 (SAMUI . 1 = 1,  91  , IS  AM 
99  FORMAT!*  SAM  • , A9 , 15 , 213 , 5 X , • IS AM  *,*9,15,2131 
IFISAMI1I .NE.ISAMllll  GO  TO  19 
IFISAMI2I  .NE.ISAMI2I I GO  TO  19 
IFISAMI3I  . NE.ISAM(JI)  GO  TO  19 
IFdSONLY.Ea.il  GO  TO  9 
C 

C SAMIS  AND  OMAF  AVAILABILITY  MATCH? 

C 

10  LOOP=l 

IF !S AM  1 1 I.NE.0MAFI3II  GO  TO  12 
IF (SAMI2  I.NE.3MAFI9I)  GO  TO  12 
IFISAMI3  I.NE.DHAF!  SIIGO  TO  12 
IOONLY=0 
ISONL Y=0 

IFdTRACE.Ea.il  MRITE!6,95I 
95  FORMAT!*  SAMIS  1 OMAF  MA  TCH  * I 
C 

c determine  type  OF  man  oay  figures  to  be  USEO 
c 

CALL  HAND  AY 

C 

C SUM  SAMIS  MANOAYS 

C 

MOTOT  = MDTOUMO 

c 

c TREAT  SMALL  ALTS  AS  REPAIRS 
C 

IF ! MO  .GT.LARGEI  GO  TO  50 
IFIITPACE.EO.il  HPITE(6,93I 
90  FORMAT !31 H SMALL  ALT,  REPAIR  OATA  USEO  I 

35  IF ! MAL T . N E . 01  63  TO  92 

C 

C READ  REPAIR  SHOP  VECTORS 
C 

CALL  REPVEC 
MALT=1 

92  NOALT=l 

IF  I IRV .HE  .01  GO  TO  55 

HRITEI6.95I  10MAF 1 1 SAI , ISA  = 3 ,5 1 
95  FORMAT  130  H NO  DATA  FOR  THIS  AVAILABILITY  ,lX,A9,2Ibl 

GO  TO  3 
C 

C RE  AO  ALT  SCOPES 

C 

50  CALL  ALTVEC 


ALTG1730 
ALTG1790 
ALT  G1750 
AL  TGI  760 
AL  TGI 770 
ALT  G1 780 
ALTG1793 
ALTG1S0  0 
ALTG1813 
ALTG1823 
ALTG1830 
ALTG1890 
ALT  G1850 
AL  TGI  86  3 
ALTG1870 
ALT  G1880 
ALTG1S90 
AL  TGI  90  0 
ALTG1913 
ALTG1920 
ALTG1930 
ALTG1990 
ALTG1950 
ALT  G1 963 
ALTG1970 
ALTG1983 
ALTG1990 
ALTG2000 
ALT  G2010 
ALTG2020 
ALTG2030 
ALT  G2  09  3 
ALTG2050 
ALTG2060 
ALTG2070 
ALTG2083 
ALT  G2  090 
ALTG2100 
ALTG2110 
ALTG2120 
ALT  G2130 
ALTG2190 
ALTG2150 
ALTG2160 
ALT  G2170 
ALTG2180 
ALTG2190 
ALTG2200 
ALT  G2  21 0 
ALTG2220 
ALTG2230 
ALT  G2290 
ALTG2250 
ALTG2260 
ALTG2270 
ALTG228  0 
ALT  G2  290 
ALTG2300 
AL  T G?  31 0 
ALT  G2320 


IMNOALT.TQ.lt  SO  TO  35 

ALTG2330 

c 

ALTG2360 

c 

MAKE  A MATRIX 

ALTG2350 

c 

AL  TG2360 

55 

LMPM=MPMJ  SAM  16)  1 

ALTG2370 

MMPM=KOMP  M (LMPM) 

ALTG2  380 

IFtITRACE.EQ.lt  WRITE  16,56) KDMPM 1 MPM t S AM 1 51 ) ) ,MPM (SAMI  6) ) , SAM  16) 

ALTG2390 

56 

FORMA  Tt5X,3I10l 

ALTG2600 

CALL  MAT 

ALTG2610 

GO  TO  6 

ALTG2623 

C 

ALTG2630 

c 

REPORT  ON  AVAILA3ILITY  MISMATCHES 

ALTG2660 

c 

AL  TG2650 

12 

CALL  AVOIF 

ALT  G2  66  3 

IFtITRACE.EQ.lt  WRITE(6,97I  I00NL  T , I SCNL  T 

ALT  G26Z0 

92  FORMA  T ( • OMAF  1 SAMIS  MISMATCH* ,2131 

ALTG2683 

C 

ALT  G2690 

C 

NO  MATRIX  IS  MAOE  IF  THE  AVAILABILITY  IS  IN  SAMIS 

ONLY 

ALTG2500 

C 

ALTG2510 

IFtlSCNLY.EQ. T»  GO  TO  6 

ALTG2520 

c 

ALTG2530 

c 

READ  NUCLEAR  INPUT 

ALTG2560 

c 

ALT  G2550 

2T 

CALL  NUCIN 

ALT  G2560 

IFtNUC.EQ.lt  GO  TO  28 

AL  T 62570 

C 

ALTG2580 

C 

NO  MATRIX  IS  MAOE  IF  NONNUCLEAR  AVAILABILITIES  ARE 

ONLY  IN  OMAF 

ALTG2590 

c 

ALTG2603 

c 

MATRIX  NUMBER  SET  TO  1500 

ALTG2610 

c 

ALTG2623 

26 

OHAF4 18) * 1503 

ALTG2630 

C 

AL  T G266  0 

C 

SET  PER  CENT  ALT  TO  ZERO 

ALTG2650 

c 

ALTG2663 

OMAF (191=0 

ALTG2670 

J 

IF(OMAF(3l  .NE.LSSIGO  TO  32 

ALT  G268  0 

WRITE  (8,300)  OMAF 

ALTG2690 

c 

32  CONTINUE 

ALTG2700 

REAO(3,300,ENO=70i)  OMAF 

ALTG2710 

IF(OMAF(6t.EQ.I3LANK)  GO  TO  3 

ALTG2720 

GO  TO  26 

ALT62730 

c 

ALTG2760 

c 

A MATRIX  IS  MAOE  FOR  NUCLEAR  OMAF  AVAILABILITIES 

ALT  £2  75  0 

c 

ALTG2763 

28 

CALL  MAT 

ALTG2770 

MALT  = 3 

ALTG2780 

CALL  MATOT 

ALTG2790 

MOTOT=0 

ALTG2800 

26 

READ ( 3,30 C ,ENO  = 7 00>  OMAF 

ALTG2810 

IF(0HAF(6).EQ.I3LANK)  GO  TO  30 

ALTG2820 

OMAF  ( 181  =MANO 

ALTG283  0 

IF(OMAF(lfc).EQ.O)  GO  TO  31 

ALTG2860 

OMAF (191=1 00 •KNUC(5)/ONAF(16) 

ALTG2850 

31 

CONTINUE 

ALTG2860 

NRITE(8,300)  OMAF 

ALTG2870 

GO  TO  26 

ALTG2S80 

30 

CALL  ZE»0 

ALTG2890 

GO  TO  3 

ALTG2900 

C 

ALTG2910 

c 

summarize  an  availability 

ALTG2920 

78 


c 

16  IFUSCNlV.Ca.il  60  TO  10 
NALT«0 

IFINOTOT.NC.il  SO  TO  75 
IFUTRICC.CQ.il  WRITE  (6.911 
91  FORNATI*  SANIS  AVAIL.  COHN. 'I 
CALL  ZERO 
C 

C IF  SAMIS  MANOAV  TOTAL  IS  ZCRO.  TRCAT  AS  OHAF  ONLY  CASE 
C 

60  TO  Z7 

75  CALL  HATOT 
NOTOT-I 

70  REAO(3.3IO.ENO«7IO»  ONAF 

IF (0MAF(6 I .CQ. I BLANK I 60  TO  76 
ONAF  till >MANO 

C IF  I ONAF  131  »NC  .LSSI60  TO  7| 

NRITC  (1.3  001  ONAF 
60  TO  70 

76  CALL  ZCRO 
60  TO  3 

C 

C ONAF  ANO  SANIS  CONPLCTCOT 
C 

700  IFUENOSN.NC.  0 I 60  TO  16 
IEN0MF*1 
60  TO  12 

•00  IFIIENOHF.NC.O  I 60  TO  16 
ICNOSM-1 

IFUO  CNLT  . FQ.  1.  OR.  IS  ONLY.  CQ.  II  60  TO  12 
60  TO  16 
16  STOP 
ENO 


ALT6Z930 
ALTG2960 
ALT6Z950 
ALT  62960 
ALTCZ970 
ALT6Z9S0 
ALT 62990 
ALT63000 
ALT63010 
ALT630Z0 
ALT63030 
ALT  63  060 
ALT  630  5 0 
ALT63060 
ALT63070 
ALT  63010 
ALT63090 
ALT63100 
ALT63U0 
ALT631Z0 
ALT63130 
ALTG3160 
ALT 63 150 
ALT  63160 
ALT63170 
ALT631I0 
ALT  63190 
ALT63Z00 
ALT63Z10 
ALT  C3ZZ0 
ALT63Z30 
AL  T 63260 
ALT63Z50 
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subroutine  altvec 

c 

C THIS  ROUTINE  SELECTS  THE  PROPER  ALT  SCOPE  VEC  TOR  FOR  USE  IN 
C MAKING  THE  ALT  MATRIX 

C 

COMMON/ON EFSAU 221 , IEX YR.MO , NREP, REP t4, 103 1 .MMPM, Xt 10, 211 ,LHPM 
COMMON  /TNO/NO4LT,RVECt20.79,3l  ,KT TP ( 2 ,6 , 31  , A VEC < 20 • 

. .NTVPt 3I.NVEC.IRV.ITRACE 
COMMON  /FIVE/  EOFU,EOF12,KFIRST 
01  ME  NS  I ON  VEC  TOR  ( 2 0 • 500 1 

INTEGER  TYPE (533  I .CLASS  I SO  3 I , ALNO (500  ,21 , SAM 
IFIEOFH.EO.il  GO  TO  50 
IFtKFIRST.EQ.il  GO  TO  12 
C 

C READ  MAJOR  ALT  FILE 

2 00  70  J=1 .500 

REAOIll.l 0,ENO*49I  TYPE  t Jl  , CL  ASS  t Jl  , A LNO I J,  1 1 . ALNOt  J.2I 
. • (VECTOR  (JF  «JI .JF-1.201 

13  FORMAT (A*  , 14, 3X , A4 , Al , 3X , 1 3 (F5.4, 1XI,/19X,1)(F5.4,1XI/I 
KFIRST  = 1 

IFCJ.EQ.l  I GO  TO  69 
IFtTYPEtJI .EQ.TTPECJ-ll I GO  TO  69 
00  66  IB= 1 .3 
66  BACKSPACE  11 

GO  TO  12 

69  JJ=J 

70  CONTINUE 

NRITE (6.711  TYPEtJI .CLASSCJI , ALNO ( J, 1 1 , ALNO t J , 2 1 

71  FORMA  T( 26H  MAJOR  ALT  ARRAY  OVERFLOW  , A 4 ,2  1 1 X, A 4 I , A1 1 

GO  TO  50 

C 

C IS  THIS  OH A F AVAILABILITY  ALSO  IN  THE  MAJOR  ALT  FILE 
12  IFtTYPEtll-SAWtlll  2,15,50 

15  00  80  K=1 ,JJ 

IF(CLASS(KI.NE.SAMI12II  GO  TO  60 
IF tALNOIK  *11 .NE.SAMt 101 1 GO  TO  60 
IFtALN0tK,2I.E0.SAM(lll I SO  TO  35 
83  CONTINUE 

GO  TO  50 
C 

C SET  FLAG  THAT  OATA  EXISTS  FOR  THIS  ALT 
35  NOALT=0 

IFtITRACE.EQ.il  NRITE(6,30I 
30  FORMAT (25H  GOOO  OATA  FOR  THIS  ALT 

00  60  I Ax  1 ,20 

60  AVEC  ( I Al  x W£CT  OR  ( I A , Kt 
RETURN 
C 

C SET  FLAG  THAT  NO  OATA  EXISTS  FOR  THIS  ALT 
49  EOF 11*1 

53  NOALT*l 

IFIITRACE.EQ.il  HRITE(6,40I 

43  FORMAT t42H  NO  OATA  FOR  THIS  ALT,  REPAIR  OATA  USED. 

RETURN 

ENO 


AL  TG3263 
ALTG3270 
AL  TG3266 
ALTG3290 
ALTG3330 
ALTG3310 
ALTG3323 
ALTG3330 
ALTG3  340 
ALTG3345 
ALTG3350 
ALTG3360 
ALT  G3  373 
ALT  G3360 
ALTG3  393 
ALTG3400 
ALTG3410 
ALTG3415 
ALTG3420 
ALT  G3430 
ALTG3443 
ALTG3453 
ALTG3455 
AL  TG3460 
ALTG3473 
ALT  G3480 
AL  TGI 490 
ALTG3500 
ALTC3510 
ALTG3520 
AL  T GJ  53  0 
ALTG3540 
ALTG3550 
ALTG3563 
ALTG3570 
ALTG3580 
A L T 6359  3 
ALT  G360  0 
ALTG3610 
AL  TG362  3 
ALTG3633 
ALTG3643 
ALT  G365  3 
ALTG3660 
ALTG3670 
ALTG3660 
ALTG3690 
ALTG3700 
ALTG371 0 
ALTG3720 
AL  T 63730 
ALTG3740 
ALTG3753 
ALTG3760 
4LTG3770 
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ALTG37SU 
ALTG3790 
ALTG3800 
ALTG3810 
ALT63820 
ALTG3830 
ALTG384Q 
ALTG3890 
AL  T £3860 
ALTG3870 
ALTG36S0 
ALTG3890 
ALTG3900 
ALTG3910 
ALT  G3920 
ALTG3930 
ALTG3940 
ALTG3993 
ALTG3960 
ALTG3970 
ALT  G3983 
ALTG3993 
ALTG4000 
ALTG4010 
AL  TG4Q23 
ALTG4030 
AL  T G4040 
AL  T 04  09  0 
AL  T 04 06  3 
ALTC-4870 
ALT  04080 
ALT  04 09 3 
ALT  C4100 
AL  T 04 11 3 
AL  T 04 120 
ALTG4133 
AL  T 04 14  0 
AL  T 04 190 
ALTG416J 
AL  T 04 17  3 
ALTG41A3 
ALTG4199 
ALTG4200 
ALT  Gh21 3 
ALTG4223 
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SUBROUTINE  AVOIF 

C 

c this  routine  reports  availabilities  which  are  unique  to 

C SANIS  OR  0HAF 

C 

COHHON  /0NE/SAHI22I  , IEX VR, HO, NREP ,REP  I*  , 1 31 1 , HMPH.XI 10 ,211  »LHPH 
COHHON  /THREE/  OHAF ( 221 , IENOSH, IE  NONE , IOONLT • ISONLT .NANO 
INTEGER  SAN* OHAF 

C 

C IF  EITHER  FILE  IS  COHPLETEO,  NO  TESTING  IS  NECESSARY 

C 

IFdENOSN.EQ.il  GO  TO  13 
IF  HE  NOHF.EQ.il  GO  TO  23 

C 

C OETERHINE  THE  FILE  WHICH  UNIQUELY  CONTAINS  THE  ALT 

C 

IFISAHdl  -OHAF 1 311  20.2.10 
2 IFISAHI?! -ONAFI4I I 20.3,19 

3 IFISAHdl  - OHAF I 911  20.4,10 
4 WRITE (6.9  MSAHIIAI . I A* 1,31 . I OHAF 1 1 A >, I A * 3 , 9 1 

9 FORHATI*  IRRECONCILABLE  SEQUENCE  ERROR  •/•  SANIS  a,A4,2I9, 

1 • OHAF  *.A4, 2191 

PE  TURN 
C 

C REPOPT  ON  AVAILISILITIES  ONLY  IN  OHAF 

C 

13  WRITE  I1,1EI  OHAF  131  .ONAFUI  .OHAFI  91 
16  FORHATI9X ,A4, 14, 191 

C 

C SET  FLAG  TO  SHOW  OHAF  ONLY 

C 

ISONLYrO 
IOONL  Y*1 
RETURN 

C 

C REPORT  ON  AVAILISILITIES  ONLY  IN  SANIS 

C 

23  WRITEI13,  161  (SAUIAI  , I A* 1 , 3 1 

C 

C SET  FLAG  TO  SHOW  SAHIS  ONL  T 

C 

IOONL  Y=0 
ISONL  Y*1 
RETURN 
ENO 


SUBROUTINE  NANOAV 
C 

C THIS  ROUTINE  SELECTS  THE  TYPE  OF  NAN  OATS  JSEO  BY  THE  PROMAN 

C 

COHHON  /ONE/S ANI 221, IEXVR, HO, NREP.REPI4, 1001  , NNPH .XI1Q.21I.IHPH 

INTEGER  CV.SAH.CVN.CWT 

OATA  CV/2HCV/,CVN/3HCYN/,SVT/3HCVT/ 

C 

C USE  F HP  FIGURES  FOR  CV 
C 

IFISAHtll .EQ.CVI  GO  TO  2 
IFISAHI1I .EQ.CVNIGO  TO  2 
IFISANI1I .EQ.CVTIGO  TO  2 
C 

C USE  FHP  FIGURES  FOR  EXECUTION  OR  BUDGET  YEAR 
C 

IFISAHUI  .EQ.  IEXVR.OR.SANU>  .EQ.IEXVRMt  GO  TO  2 
C 

C USE  ANT  FIGURES  FOR  REHAINING  CASES 
C 

N0«SAHI7I 

RETURN 

2 H0*SAHI8I 

IFISAHUI  .EQ.CVI  RETURN 

IFISANIll .EQ.CVN.0R.SANI1I .EQ.CVTI  RETURN 

C 

C REPLACE  FHP  ZERO  HAN  OATS  HITH  AHT  NONZERO  HAN  OAVS 
C 

IFISAHUI  .NE.  O.OR.SANITI  .eq.oi  return 
IFINREP.EQ.ai  RETURN 
00  St  I«l,MtEP 

IFISAHUI.NE.REPIl.nl  GO  TO  39 
IFISAHIZI.NE.REPI2.nl  GO  TO  30 
IF  ISAHI3I  .EQ.  01  GO  TO  10 
IFISANI3I.NE.REPI3.III  GO  TO  3t 
GO  TO  20 

10  IFISAHUI  .NE. REPIG, III  GO  TO  30 

GO  TO  20 
30  CONTINUE 

RETURN 

ZO  HO-SAHI7I 

RETURN 
ENO 


ALTGG230 
ALTGG240 
ALTG4290 
ALTGG260 
ALTG4270 
ALTGG260 
ALTG4  290 
ALTGG300 
ALTGG310 
ALTG4320 
ALTGG330 
ALT  GG  340 
ALTG4  390 
ALTG4360 
ALTG437B 
AL  TG4  300 
ALT64  390 
ALTG4400 
ALTG4410 
ALTG4420 
ALTG4430 
ALT  G4440 
ALTG4490 
ALTG4440 
ALTG4470 
ALTG44A0 
ALTG4490 
ALT  G4S00 
ALTGGS10 
ALTGG520 
ALTG4S30 
ALTG4940 
ALTG4550 
ALTG4960 
ALTGG570 
ALTGG500 
ALTG4990 
ALTG4600 
ALTG4610 
ALTGG620 
ALT  GG630 
ALTG4640 
ALTGG650 
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SUBROUTINE  NS  TO  r 
C 

C THIS  ROUTINE  NORMALIZES  THE  MAT  p TX  FORMED  IN  SUBROUTINE  MST 

C SNO  ASSIGNS  A MATRIX  NUMBER  TO  IT.  THE  MATRIX  AND  THE  NEW 

C OMAF,  HHICH  INCLUDES  THE  MATRIX  NUMBER*  APE  MPITTEN. 

C 

COMMON  /ONE/S AM (221  , IEXTR,  MD , NREP  . REP  ( 4 , 1 301  ,MMPM,X(10  .21 » .LMPM 
COMMON  /THREE/  OMAF ( 22 1 , IE NOSM, IENDHF , I JONL T , IS ONLT , MA NO 
INTEGER  OMAF 
OATS  LSS/2HSS/ 

OEFINE  FILE  10(3000,840, L.IOUMI 
C 

C COMPUTE  THE  SHOP  TOTALS 

OO  10  IS*  1.20 
00  10  IPM*1,9 

10  X(10,ISI*X(10,ISI»X(IPM,ISI 

C 

C COMPUTE  THE  GROUPEO  PLANNING  MOOULE  TOTALS 
00  20  IS*  1.20 
00  20  IPM  * 1. 1 0 

20  XIIPM.2H *X(IPM,21»»X(IPM,IS» 

c 

C NORMALIZE  THE  MATRIX  ENTRIES 

DO  30  IS* 1 ,21 
00  30  IPM  = 1,  1 3 
IF (x( 10, 211. ME. 0)  GO  TO  I) 

WRITE(6,36I  ( OMAF (IOAl«IOA*3,51 

35  FORMAT!'  PIWIOE  CHECK  '.A4.2I&I 

OMAF  ( 1 A)  * 1500 
NRITE(S,60t  OMAF 
RETURN 

30  X ( IPM , ISI  *X(IRM,ISI/X<10.21> 

C 

C ASSIGN  A MATRIX  NUMBER 

MANO*  NANO ♦ 1 
OMAF  (181*  MANO 

IE (OMAF (1AI.LT. 15)11  GO  TO  50 

c 

C WRITE  ERROR  MESSAGE  IF  MAXIMUM  MATRIX  NUMBER  IS  FkcEEOFQ 
WRITE ( 6 . 4 u 1 0MAE(1S1 

40  FORMAT!'  MATRIX  NUMBER  GREATER  THAN  1503*. IlOl 
RETURN 

C 

C WRITE  NEW  OMAF  AMP  MATRIX 

C 50  IF(OMAF(3l  .NE.LSSI  RETURN 
50  MRITF  (8,601  OMAF 

60  FORMAT (A4.A1.A4.2I4.A1 .A3. 216, A3, 2A1, 12, 11,21 7, 21 4. 13. 12, 5X, I 3, 
1 8X.I6I 
MN=OMAF(l 8) 

WRITE (10'MNK (X (I.J I ,1*1,10 1 ,J=1, 211 

return 

ENO 


ALTG4950 
ALTG4960 
ALTG49Z0 
ALT  &4980 
ALTG4990 
ALTG5000 
ALTG5010 
AL  TG5023 
ALTG5040 
ALT  G5050 
AL  TG5055 
A L T G5  0 6 0 
ALTG5070 
ALTG5080 
ALT  G5 090 
ALTG5100 
ALTG5110 
ALTG5120 
ALTG5130 
AL  TGS 140 
ALTG5150 
ALTGS163 
ALT&5170 
ALTG5183 
ALT  G5  193 
ALTG520J 
AL  T GS  21  0 
ALTG5220 
ALTG5230 
ALTG524« 
ALT  C5  25  0 
A L T GS  26  0 
ALT 6527 0 
ALTG5283 
ALTG5290 
ALTGS300 
ALT&5310 
A L T G5  320 
AL  TG5330 
ALTG5343 
ALTG5350 
ALT  C5  360 
ALTG5370 
AL  TG5380 
ALTG5  390 
ALTG5400 
ALTG541U 
ALTG5420 
ALTG5430 
ALTG5440 
ALTG545J 
ALT  G5460 
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SUBROUTINE  NUCIN 

C 

c this  routine  reads  oat*  on  nuclear  alts 
c 

OINENSION  NUCTYPT4I 

CONNON  /THREE/  OHAF 1221 , IENOSH, IENOHf .IOONLY . ISONLT .NANO 
COHN ON /FOUR/  ONFTOT . KNUC I5» ,HOTOT,NUC 
CONHON  /FIVE/  £0FU,E0F12,KFIRST 
INTEGER  OHAF 

OATA  NUCT YP/3HJGN. JHCVN .4MSSBN,  3HSSN/ 

IFIEOF12.EO.1I  RETURN 

C 

C RETURN  IF  CURRENT  SHIP  IS  NOT  NUCLEAR 
C 

DO  10  1*1,4 

IF (ONAFI 3 I .EQ.NUCTTP (1 1 1 GO  TO  25 
10  CONTINUE 

NUC*0 
RETURN 

25  IF ( NUC.EQ . 01  GO  TO  40 

C 

C RE  AO  OATA  FOR  THIS  SHIP  TYPE 

C 

20  RE AO  1 12,3 l .END* 491  KNUC 

30  F0RHATIA4, 314,161 

C 

C DOES  OATA  APPLY  TO  THIS  AVAIL ABIL ITT  T 
C 

40  IFtONAFfSI-KNUGIlll  50.42,20 

42  IF  (OHAF  (4  I -KNUC  1 211  50,44,20 

44  IF (OHAF (51  . EQ • 0 I GO  TO  4b 

IF  IOHAF  ( 5 I -KNUC  1311  50,40,20 
46  IFIOHAFIl 3 1 -KNUC 141150,60,20 

C 

C SET  FLAG  THAT  NO  APPLICABLE  OATA  EXISTS  rOR  MIS  AVAILABILITY 
C 

49  EOF 12*1 

50  NUC*0 
RETURN 

C 

C SET  FLAG  THAT  OATA  EXISTS  FOR  THIS  AVAILABILITY 
C 

60  NUC* 1 

100  RETURN 

ENO 


ALTG5470 
ALTG5400 
ALTG5490 
ALTG5500 
ALTG5510 
ALTG5520 
ALTG5530 
ALTG5540 
ALTG5550 
ALTG5560 
ALT  G5570 
ALTG5500 
ALTG5590 
ALTG5600 
ALTG5610 
ALT  G5620 
ALTG5630 
ALTG5640 
ALTG5650 
ALT  G5  660 
M ;5670 
AL . G5660 
ALTG5693 
ALTG5700 
ALTG5710 
ALT  G5720 
ALTG5730 
ALT  G5740 
ALTG5750 
ALTG5760 
ALTG577G 
ALT  G57S0 
ALTG5790 
ALTG5000 
ALTG5S10 
ALTG5S20 
ALTG5O30 
AL  TG504  3 
ALTG5S50 
ALTG5060 
ALTG5S70 
ALT  G5BS9 
ALTG5690 
ALTG5900 
ALTG5910 
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SUBROUTINE  REPVEC 

THIS  ROUTINE  SELECTS  THE  PROPER  REPAIR  VECTOR  TO  DESCRIBE  SHALL 
ALTS  AND  USES  THE  VECTOR  IN  MAKING  THE  ALT  MATRIX 

COMMON  /TWO/NOALT.RVEC (20, 79,31  ,KTYP 1 2, 6, 31  . A VEC I 20 1 
. ,NTVPC3I,NVEC,IRV,ITRAC£ 

COMMON  /THREE/  OMAE I 22) , IENOSM, IE NOHF . IOONLT . ISONLV t MANO 
INTEGER  OMAE 

LOOP  ON  NUMBER  OF  SETS  OF  INPUT  VECTORS 
00  10  Ksl.NVEC 

STORE  INDEX  FOR  REPAIR  VECTOR  SET  WHICH  30VER3  Tt«S  SHIP  TYPE 
IRV=K 

NKxNTVP(K) 

00  10  J=1,NK 

IS  OMAF  SHIP  TYPE  COVERED  BY  THIS  VECTOR  SET 
IF (OMAE( 3 ) .GE.KTYPU, J.KI  .ANO. 

. DMAF ( 3 I »LF-<TYP(2.J,K)I  GO  TO  30 

CONTINUE 

SFT  FLAG  THAT  NO  VECTOR  ON  FILE  FOR  THIS  SHIP  TYPE 
IRV=Q 

IFIITRACE.EQ.il  MRITEI6.23I  0MAFI3I 

FORMA  T C50  H NO  REPAIR  VECTORS  FOUND  FOR  THIS  SHIP  TYPE  .AD 

IFIITRACE.EQ.il  NRITE«6,<*0I  IRV 
FORMA T ( 18 H REPAIR  VECTOR  SET  ,131 

RETURN 
END 


ALTG5920 
ALTG5930 
ALTG59N0 
ALTG5950 
ALT  G5960 
ALTG5970 
ALTG5980 
AL  TG5990 
ALT  (-60  0 0 
ALTG6010 
ALTG6020 
ALTG6030 
ALTG60A0 
ALTG6050 
ALT  G6Q60 
ALTG6079 
ALT  G60B9 
ALTG6090 
ALTG6100 
ALTG6110 
ALT  G6120 
ALTG6130 
ALTG6140 
ALTG6150 
ALTG6160 
ALTG617  0 
ALTG61S0 
ALTG619S 
ALTG6200 
ALTG6210 
ALT GG 220 
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SUBROUTINE  RV IN 

CONNON  /TMO/NOAL  T iRVEC  ( 20,  79  *3>  .KTYP  « 2, 6,  3»  , AVECI 20 1 
, HTTP  < 3 1 ,NVEC , IRV  * ITRACE 


ALT  G6  230 
ALTG62A0 
ALTG6250 


c 

ALTG6260 

c 

THIS  ROUTINE  REAOS  THE  SHOP  REPAIR  VECTOR  DATA  MHICH  IS  HINIHALLY 

ALTG6273 

c 

GROUPED  INTO  CARRIERS,  SUBMARINES,  ANO  OTHER  ACTIVE  SHIPS 

ALTG6260 

c 

ALTG6290 

RE  AO  ( 1A«  10)  HUO 

ALTG6300 

c 

ALTG6310 

c 

THE  UPPER  LIMIT  OP  THIS  LOOP  SHOULD  BE  KEPT  EJUAL  TO  THE  DIMENSION 

ALTG6320 

c 

OF  THE  THIRD  SUBSCRIPT  OF  RVEC 

ALTG6330 

00  30  K*l,3 

ALTG63A0 

c 

ALTG6350 

c 

RE  AO  SHIP  TYPES  COVERED  BY  THIS  VECTOR  SET 

ALTG6360 

RE  AOI 1A,  1 G ,END*60 1 NT  ,ttKTYP(I,<J,K),I*l,2)  ,J*1,NT> 

ALTG637  0 

10 

FORMAT (9X,I1,1X,5(AA,1X,AA,3X),AA,1X,AAI 

ALT  G6  300 

NVEC*K 

ALTG6390 

15 

NTYPIKI *NT 

ALTG6A00 

c 

ALTG6A10 

c 

Rc AO  SHOP  VECTOR  SET 

ALTG6A20 

READ! 1A, 2 01  ( (RVEC< I ,J,KI ,1*1,201 ,J*1,79I 

ALTG6A30 

20 

FORMAT (10X,10F7,A) 

ALT  G6AA  0 

30 

CONTINUE 

ALTG6A50 

C 

ALTG6A60 

C 

DETERMINE  IF  SOHE  VECTOR  SETS  HAVE  NOT  BEEN  RE  AO 

ALTG6A70 

READ  < 1A,  1 0 ,ENO*60 1 HUO 

ALTG6AS0 

AO 

HRITE 16,501 

ALTG6A90 

50 

FORHAM70M  — NOT  ALL  REPAIR  VECTORS  MERE  REAO.  INCREASE  OIHENSIALTG6500 

•ON  OF  RVEC.  I 

ALTG6510 

60 

RETURN 

ALTG6520 

END 

ALTG6530 

B7 


o o o 
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SUBROUTINE  ZERO 

this  routine  resets  the  alt  natrix  to  zero 

on*?? ^t7?*^^****^  * * l^*****0»NKEPtREPC4, 1001  . HHPM  ,X  C 10 ,21 1 ,LNPH 
uu  lu  1 = 1 * 10 

OO  10  J=l,21 
XII.JIxO 
RETURN 
ENO 


ALTG6540 
ALTG6550 
ALTG6560 
ALTG6570 
ALT  G658Q 
ALTG6590 
ALTG660O 
ALTG6610 
ALTG6620 
ALTG6630 
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3.3.6  GLOSSARY 


COMMON  VARIABLES 


Contnon  Block  /ONE/ 


SAM(22) 

One  record  of  the  SAMIS  file,  see  Section  2. 2. 3. 3. 

IEXYR 

Input  execution  year. 

MD 

Mandays  required  for  a SAMIS  alteration. 

NREP 

Number  of  availabilities  in  which  AMT  replaces  FMP 
mandays. 

REP(4,100) 

Array  of  availabilities  in  which  replacement  of 
AMT  for  FMP  mandays  occurs;  the  first  subscript 
refers  to  the  ship  type,  hull  number,  sequence  num- 
ber, and  fiscal  year,  and  the  second  to  the  number 
of  such  availabilities. 

MMPM 

Depot  maintenance  planning  module  number. 

X(10,21) 

Alteration  matrix  in  which  the  first  subscript  refers 
to  the  SWBS  values  and  the  second  refers  to  the 
shops. 

IMPM 

Index  for  MMPM. 

Common  Block  /TWO/ 

NQALT 

Alteration  data  flag  set  to  "1"  if  alteration  data 
exist  and  to  "0"  if  no  alteration  data  exist. 

RVEC(20,79,3) 

Repair  shop  vectors. 

KTYP(2,6,3) 

Array  of  ship  types  covered  by  a set  of  repair  vectors. 

AVEC(20) 

Alteration  shop  vectors. 

NTYP(3) 

Number  of  ship  types  covered  by  a set  of  repair 
vectors. 

NVEC 

Number  of  sets  of  repair  vectors. 

IRV 

Repair  vector  set  number  applicable  to  current  availa- 
bilities. 

ITRACE 

Intermediate  print  option  flag  set  to  "1"  to  print; 
otherwise  set  to  "0". 

1 

1 


Common  Block  /THREE/ 


DMAF(22) 

One  record  of  the  DMAF  file;  see  Section  2. 2. 3. 2. 

1ENDSM 

Flag  set  to  "1"  if  processing  of  the  SAMIS  file 
is  completed;  otherwise  it  is  "0". 

IENDMF 

Flag  set  to  "1"  if  processing  of  the  DMAF-1  file 
is  completed;  otherwise  it  is  “0”. 

IDONLY 

Flag  set  to  "1"  if  an  availability  appears  in  the 

DMAF-1  file  but  not  in  the  SAMIS  file;  otherwise 
it  is  set  to  "0". 

ISONLY 

Flag  set  to  "1"  if  an  availability  appears  in  the 

SAMIS  file  but  not  the  DMAF-1;  otherwise  it  is 
set  to  "0". 

MANO 

Alteration  matrix  number . 

Common  Block  /FOUR/ 

DMFIOT 

Total  mandays  for  a DMAF  availability. 

KNUC( 5) 

Nuclear  availability  identification  and  associated 
mandays . 

MDTOT 

Total  mandays  for  a SAMIS  availability. 

NUC 

Flag  for  nuclear  input  for  the  current  availability; 
set  to  "1"  for  nuclear  input;  otherwise  set  to  "0". 

Common  Block  /FIVE/ 

EOF11 

End-of-file  flag  for  alteration  scopes,  set  to  "1" 
if  end-of-file;  set  to  "0"  for  no  end-of-file. 

EOF12 

End-of-file  flag  for  nuclear  alterations,  set  to 
"1"  if  end-of-file;  set  to  "0"  for  no  end-of-file. 

KFIPST 

Flag  set  to  "1"  after  reading  the  first  record  of  the 

MAF;  otherwise  it  is  "0". 
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AD-A056  798 


UNCLASSIFIED 


DAVID  N TAYLOR  NAVAL  SHIP  RESEARCH  AND  DEVELOPMENT  CE--ETC  F/G  15/5 
DEPOT  MAINTENANCE  PLANNING  AND  PROGRAMMING  SYSTEM  (DMPPS)t  VOLU— ETC(U) 
JUL  78  M J LAMATRICE  i J K ST.  LAURENT 

DTNSRDC-78/022  NL 


□ 


9 18 


r 


LOCAL  VARIABLES 

Main  Program 

I 

Index  used  for  I/O  statements. 

IB 

Index  used  for  I/O  statements. 

I BLANK 

A one-character  blank  space. 

IG 

Index  for  the  nunber  of  planning  modules. 

IN 

Index  used  for  I/O  statements. 

IR 

Index  for  NREP. 

ISAM(4) 

Ship  type,  hull  nunber,  sequence  nunber  and  fiscal 
year  of  previous  SAMIS  availability. 

ISKIP(6) 

DMAF  work  types  not  to  be  processed. 

ISWB(9) 

Lower  limit  of  SMBS  range  in  DMPM  mapping. 

IW 

Lower  limit  of  SUBS  range  in  DMPM  mapping. 

JG 

Index  for  the  lumbers  of  SWBS  ranges  corresponding  to 
a particular  KDMPM. 

JSWB(9) 

Upper  limit  of  SWBS  range  in  DMPM  mapping. 

JW 

Upper  limit  of  SMBS  range  in  DMPM  mapping. 

KDMPM(79) 

Depot  maintenance  planning  module  numbers. 

KW 

Index  for  the  SWBS  corresponding  to  a particular  KDMPM 

LARGE 

Lower  boundary  for  large  alterations. 

LOOP 

Flag  set  to  "1"  after  reading  the  first  SAMIS  record; 
otherwise  it  is  "0". 

MALT 

Flag  set  to  "1"  after  reading  the  first  alteration  of 
an  availability;  otherwise  it  is  "0". 

MPM(IOOO) 

Index  for  the  planning  module  corresponding  to  each 
SWBS. 

MSWBF 

Flag  set  to  "1*  if  illegal  SWBS  table  is  to  be  printed; 
otherwise  it  is  "0". 
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Subroutine  AVDIF 


IA 


Index  for  I/O  statements. 


Subroutine  MANDAY 


CV 

CVN 

CVT 

I 


Variable  used  to  test  for  ship  type  CV. 

Variable  used  to  test  for  ship  type  CVN. 

Variable  used  to  test  for  ship  type  CVT. 

Index  for  the  number  of  alterations  in  which  AMT 
replaces  FMP  mandays. 


Subroutine  NUCIN 

I Index  for  NUCTYP. 

NUCTYP  Array  of  nuclear  ship  types. 


Subroutine  REPVEC 


J 

K 

NK 


Index  for  NK. 

Index  for  the  number  of  sets  of  repair  vectors. 

Nunber  of  ship  types  covered  by  a set  of  repair  vec- 
tors. 


Subroutine  KVIN 


I 

J 

K 

MUD 

NT 


Index  used  for  I/O  statements. 

Index  used  for  I/O  statements. 

Index  used  for  I/O  statements. 

Dunny  read  variable. 

Nunber  of  ship  types  covered  by  a set  of  repair  vec- 
tors. 
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Subroutine  ALTVBC 

ALNO(I ,J) 

CLASS 

J 

JJ 

K 

TYPE 

VECTOR 

Subroutine  MAT 

IS 

MP 


Alteration  identification  nunber. 

Ship  class. 

Index  for  the  nunber  of  alterations  for  a ship  type. 
Nunber  of  alterations  for  a ship  type. 

Index  for  JJ. 

Ship  type. 

Alterations  shop  vector. 


Index  for  shops. 

A one-digit  planning  module  designation. 


Subroutine  MATOT 

IDA 

IPM 

IS 


Index  for  I/O  statements. 

Index  for  one-digit  planning  module  designation. 
Index  for  shops. 


3.3.7  SAMPLE  RUN 


This  program  was  run  with  the  same  data  set  as  the  previous  program, 
along  with  certain  additional  input  files.  Once  again,  the  intermed- 
iate output  option  was  not  selected  for  the  sample  run.  All  other  reports 
generated  by  the  program  are  included  as  well  as  those  input  files  not 
used  by  the  previous  program.  Seme  partial  listings  are  included  for 
compactness. 


Unit  5 - Card  Input 

The  actual  inputs  cards  are  punched  as  follows: 

Card  no.  1 - 7800007500001 
Card  no.  2-00. 
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Unit  9 - SWBS-to-DMPM  Transformation 


79 

1001 

100-100 

110-129 

1002 

125-126 

1003 

161-161 

191-191 

1009 

162-162 

100S 

163-163 

loot 

165-165 

1007 

167-169 

loot 

170-179 

1009 

100-107 

2001 

200-209 

250-250 

2002 

210-219 

2003 

221-221 

259-259 

2009 

222-222 

239-239 

2005 

231-233 

2006 

235-239 

223-229 

2007 

291-296 

2000 

297-297 

2009 

251-251 

2010 

252-252 

2011 

253-253 

250-250 

2012 

259-256 

2013 

261-269 

290-290 

3001 

310-312 

3002 

313-319 

320-329 

3003 

391-393 

390-390 

3009 

300-309 

9001 

911-912 

993-993 

9002 

913-917 

9003 

922-929 

926-927 

9009 

921-921 

925-925 

9005 

930-996 

995-995 

9006 

950-953 

955-955 

9007 

959-959 

992-992 

90  CO 

960-965 

9009 

970-976 

9010 

900-909 

9011 

900-909 

990-991 

5001 

511-511 

517-517 

5002 

512-513 

5003 

515-515 

5009 

519-519 

516-516 

5005 

520-550 

590-590 

5006 

562-562 

5007 

560-561 

563-560 

5000 

570-573 

501-505 

5009 

506-506 

5010 

507-507 

5011 

500-500 

5012 

591-592 

599-597 

5013 

593-593 

5019 

500-509 

6031 

611-613 

632-632 

6002 

631-631 

6003 

639-639 

95 


610%  6%%-6%%  696*606 

6005  655*655 

6006  6%l-6%3  6%5*6%5  650*65%  661*66% 

6007  660-660  665-665 

6000  670-673  690*690  690*699 

6009  600-610  6%0-6%0 

6010  620-625 

6011  633-633 

7001  710-711  720-721 

7002  712-713  722-723  772-773  700-700  702-703  790-790  792-792  797-799 

7003  72%-720 

700%  730-733  7%0-7%3 

7005  750-75% 

7006  760-763 

7007  700-709 

0001  010-013  096-097  002-002 

0002  020-020  030-039 

0003  3%0-0%5 

300%  050-059  090-090  092-095 

0005  091-091 

9001  902-902 

9002  900-901  963-909 

9003  990-99% 

900%  995-995 

9005  997-997 


Unit  14  - Repair  Vectors 


6 

6/77  - SAMPLE 
•OTH-*OTH  AO  -AGP 

AO 

-CGN 

oo  -oog  ff  -phm  surf-surf 

1 

1001.1 

0.0000 

.3345 

.0157 

.0096 

.2477 

.0092 

.0011 

.0150  .0064 

.0504 

1 

1001.2 

.0545 

.0315 

0.0000 

.0060 

.0524 

.1130 

.0002 

.0006  .0143 

.0357 

1 

1002.1 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000  0.0000 

0.0000 

1 

1002.2 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000  0.0060 

1.0000 

1 

1003.1 

0.0000 

.0921 

0.0000 

.0059 

.0529 

.0009 

0.0000 

.0061  0.0000 

0.0000 

1 

1003.2 

.0439 

.0651 

0.0000 

0.0000 

.0250 

.5943 

0.0000 

0.0000  .0458 

.0652 

1 

1004.1 

0.0000 

.3345 

.0157 

.0090 

.2477 

.0092 

.0011 

.0150  .0084 

.0504 

1 

1004.2 

.0  5 45 

.0315 

0.0000 

.0060 

.0524 

.1130 

.0002 

.0006  .0143 

.0357 

1 

1005.1 

0.0000 

.2436 

.0011 

.0132 

.1545 

.0666 

0.0000 

.1463  .0211 

0.0000 

1 

1005.2 

.0601 

.0559 

0.0000 

0.0000 

.0026 

.0593 

.0006 

.0004  .0040 

.0667 

1 

1006.1 

0.0000 

.0909 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000  0.0000 

0.0000 

1 

1006.2 

0.0000 

.5236 

0.0000 

0.0000 

.2727 

.0303 

0.0000 

.0218  0.0000 

.0607 

1 

1007.1 

0.0000 

.6342 

.0042 

.0121 

.0033 

.0480 

0.0000 

.0044  .0037 

.0277 

1 

1007.2 

0.0000 

.0  342 

0.0000 

0.0000 

.0354 

.0459 

.0001 

.0013  .0541 

.0106 

1 

1000.1 

0.0000 

.2963 

.1204 

0.0000 

.2593 

.0012 

0.0000 

0.0000  0.0000 

.0224 

1 

1000.2 

.0001 

.1378 

0.0000 

.0133 

.0602 

.0833 

0.0000 

.0057  0.0000 

.0000 

1 

1009.1 

0.0000 

.666  7 

0.0000 

0.0000 

.3333 

0.0000 

0.0060 

0.0000  0.0000 

0.0008 

1 

1009. £ 

0.0  000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000  0.0000 

0.0000 

1 

2001.1 

.0004 

.0095 

.0088 

.0038 

.0234 

.2785 

0.0000 

.4151  .0452 

.0085 

1 

2001.2 

.0  762 

.0222 

0.0000 

0.0000 

.0007 

.0  740 

.0013 

.0028  .0001 

.0275 

1 

2002.1 

.0022 

.0064 

.0135 

.0004 

.0080 

.0525 

0.0000 

.0609  .0463 

.2210 

1 

2002.2 

.2423 

.0077 

0.0000 

.0145 

.0126 

.0619 

0.0000 

.0010  .0050 

.2036 

1 

2003.1 

.0001 

.0032 

.0030 

.0234 

.1494 

.0472 

0.0000 

.0469  .5368 

.0055 

1 

2003.2 

.0  757 

.0082 

0.0000 

.0014 

.0105 

.0276 

.0068 

.0005  .0044 

.0474 

1 

2004.1 

.0004 

.009< 

.0068 

.0036 

.0234 

.2785 

0.0000 

.4151  .0452 

.0085 

1 

2004.2 

.0762 

.0  222 

0.0000 

0.0000 

.0007 

.0  740 

.0013 

.0026  .0001 

.6275 

1 

2005.1 

.0004 

.0095 

.0088 

.0038 

.0234 

.2765 

0.0000 

.4151  .0452 

.0065 

1 

2005.2 

.0762 

.0222 

0.0000 

0.0000 

.0007 

.0740 

.0013 

.0026  .0001 

.0275 

1 

2006.1 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000  0.0000 

0.0000 

1 

2006.2 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000  0.0000 

1.0000 

1 

2007.1 

0.0000 

.0535 

.00  33 

.0045 

.0496 

.2129 

0.0000 

.3046  .0281 

.0100 

1 

2007.2 

.0228 

.0737 

0.0000 

0.0000 

.0193 

.1571 

.0031 

.0024  .0032 

.0517 

1 

2006.1 

.0004 

.0095 

.0088 

.0038 

.0234 

.2785 

0.0000 

.4151  .0452 

.0065 

1 

2006.2 

.0762 

.0  22? 

0.0000 

0.0000 

.0007 

.0740 

.0013 

.0028  .0001 

.0275 

1 

2009.1 

.0  001 

.0081 

.0077 

.0013 

.0242 

.2637 

0.0000 

.3441  .0449 

.0355 

1 

2009.2 

.1413 

.0149 

0.  0000 

.0040 

.0053 

.0641 

.0004 

.0026  .0002 

.0176 

1 

2010.1 

.0022 

.0042 

.0030 

.0003 

.0202 

.1366 

0.0000 

.5447  .00  45 

.0081 

1 

2010.2 

.2035 

.0052 

0.0000 

0.0000 

.0082 

.0292 

0.0000 

.0020  .0055 

.0218 

1 

2011.1 

.0001 

.0086 

.0035 

.0017 

.0526 

.2398 

0.0000 

.3255  .0218 

.0060 

1 

2011.2 

.2185 

.0176 

0.0000 

0.0000 

.0070 

.0390 

.0005 

.0038  .0028 

.0492 

1 

2012.1 

0.0  000 

.0051 

.0068 

.0013 

.0266 

.4227 

0.0000 

.1606  .0181 

.0396 

1 

2012.2 

.1996 

.0069 

0.0000 

0.0000 

.0142 

.0574 

.0004 

.0029  .0007 

.0165 

1 

2013.1 

0.0000 

.0221 

.0977 

.0019 

.0574 

.2294 

0.0900 

.0606  .0178 

.0176 

1 

2013.2 

.3436 

.0063 

0.0000 

0.0000 

.0173 

.0666 

.0005 

.0017  .0609 

.9186 

1 

3001.1 

0.0000 

.0  352 

.0224 

.0019 

.0400 

.2259 

0.0000 

.2294  . 01  96 

.1696 

1 

3001.2 

.1171 

.0108 

0.  0000 

.0115 

.0170 

.0665 

.0006 

.0025  .0065 

.0213 

1 

3002.1 

.0014 

.0609 

.0331 

.0024 

.0486 

.0671 

.0312 

.0  301  .0  0 51 

.4940 

1 

3002.2 

.0397 

.0198 

0.0000 

.0292 

.0250 

.0706 

.0002 

.0006  .0086 

.0324 

1 

3003.1 

0.0000 

0.0000 

.0646 

.0002 

.0523 

.1642 

0.0000 

.1760  .0120 

.0673 

1 

3003.2 

.3119 

.0123 

0.3000 

0.8000 

.0165 

.0523 

.0001 

.0006  .0001 

.0676 

1 

3004.1 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

.0500 

0.0000 

0.0000  0.0000 

.9500 

1 

3004.2 

0.0000 

0.0000 

0.  0030 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000  0.0000 

0.0000 
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Unit  2 


ILLEGAL  SMBS 


SMBS 

TVPE 

HULL 

SEQ.NO. 

ALT  .NO* 

0 

CGN 

25 

30 

01076 

1*10 

CGN 

25 

30 

0 0 260 

0 

CGN 

35 

20 

0 0349 

0 

CGN 

35 

20 

M 7 110 

0 

CGN 

35 

20 

0 0284 

<*10 

CGN 

35 

20 

0 0216 

0 

CGN 

36 

10 

00113 

0 

CGN 

37 

10 

00113 

0 

CGN 

36 

10 

00063 

0 

CV 

<*2 

35 

M 0091 

20 

C \l 

<»3 

40 

03611 

510 

CO 

43 

40 

0 3744 

510 

CO 

43 

40 

0 3731 

0 

CO 

59 

33 

M 1320 

0 

CO 

59 

33 

MO  091 

0 

CO 

59 

33 

M 0019 

0 

CO 

59 

40 

04748 

0 

CO 

59 

40 

0 4593 

60 

CO 

59 

40 

0 3931 

793 

CO 

59 

50 

04137 

510 

CO 

59 

50 

0 3745 

510 

CO 

59 

50 

0 3747 

0 

CO 

60 

51 

M 0 019 

0 

CO 

63 

51 

M 1310 

3 

CO 

60 

51 

M 0091 

0 

CO 

60 

51 

0 4593 

0 

CO 

60 

51 

0 4748 

0 

CO 

63 

52 

MO  092 

0 

CO 

63 

52 

M 1320 

0 

CO 

60 

52 

M 1265 

0 

CO 

63 

52 

M 0061 

510 

CO 

60 

60 

0 3736 

0 

CO 

63 

60 

MO  350 

793 

CO 

63 

60 

0 3625 

793 

CO 

61 

50 

03625 

0 

CO 

61 

50 

0 4593 

60 

CO 

61 

50 

0 3931 

0 

CO 

61 

50 

04504 

0 

CO 

61 

51 

04770 

510 

CO 

61 

60 

3 3739 

0 

CO 

62 

33 

M 1265 

0 

CO 

62 

33 

M 1265 

0 

CO 

62 

33 

M 0091 

0 

CO 

62 

33 

Ml  265 

3 

CO 

62 

33 

M 0019 

0 

CO 

62 

33 

0 4 748 

60 

CO 

62 

33 

03931 

0 

CO 

62 

41 

0 5 340 

510 

CO 

62 

43 

0 3747 
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Unit  8 


PUCFTCCM 

« 

31  C 

61129 

•2671 

739111 

911 

19  1 

1 

metres* 

9 

SI*C 

61129 

611B2AANMM101 

163916 

739100 

911 

• 9 0 

2 

PUCFTCCM 

« 

lira 

61129 

61182AAMNMBI2 

166192 

739100 

911 

19  1 

3 

PUCFTCCM 

9 

31*C 

61129 
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